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EDITORIAL 


Près de mille réponses au sondage du numéro 
12! Les premiers traitements statistiques four- 
nissent des résultats intéressants mais dont cer- 
tains inclinent à la réflexion. 

















































Par exemple savez-vous que le lectorat de sexe 
féminin culmine à 1,4 % ; certes, c'est Un phéno- 
mène assez connu que les jeunes filles sont 
moins attirées que les jeunes gens par l’informa- 
tique individuelle, mais dans cette proportion ! Il 
ÿ a de quoi étonner : pourvu que l'informatique 
de loisir n'aille pas rejoindre la pèche et le sport 
télévisé dans la catégorie des détentes exclusi- 
vement masculines; elle mérite beaucoup 
mieux. Les scientifiques disent que l’informati- 
que est une technique d'avenir et les poêtes que 
«la femme est l'avenir de l'homme » : il est donc 
urgent qu'à l'avenir les femmes s'intéressent da- 
vantage à l'informatique. C.Q.F.D. 


Autre chiffre, autre interrogation : les lecteurs se 
répartissent massivernent en deux classes d'age 
dominantes, 15 et 36 ans. Voici l'interprétation 
la plus plausible : on s'intéresse à l'informatique 
individuelle à l'adolescence, puis lorsqu'on est 
jeune père pour s'amuser avec ses enfants. Mais 
alors, les étudiants, les professionnels, depuis 
une dizaine d'années que l'informatique grand 
public existe ont remisé leur système au pla- 
card ? Il y a pourtant tellement de possibilités en 
termes d'applications pratiques (graphiques, 
gestion, etc.)...à méditer. 





Voyons midi à notre porte : combien d'entre 
vous qui possèdent un Sinclair, envisagent-ils de 
passer à un Sinclair plus gros (ZX81-Spectrum, 
Spectrum-QL ou ZX81-QL? Un sur trois {en 
gros) ; c’est tout ? Déjà blasé ? Dommage. 


Fort heureusement, l'impression générale qui se 
dégage du sondage est elle, nettement positive : 
pour la plupart d'entre vous, l'informatique est le 
premier des loisirs et ORDI-£ plait bien plus qu'il 
ne déplait ; ça, c'est Un bon résultat, mais nous 
n'y sommes pas pour l'essentiel : ORDI-5 n'est-il 
pas fait par ses lecteurs, c'est même la qua- 
irième qualité citée après l'existence d’une re- 
vue Sinclair, le nombre de programmes valabies 
et le caractère varié des sujets. 
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la version ancien clavier à ce prix; ça 
commence à valoir le coup d'en acheter plu- 
sieurs par famille pour développer des logiciels 
de communication. 


Le QL est désormais proposé, comme ses petits 
frères SINCLAIR par une grande maison de 
vente par correspondance installée dans le Nord 
(avec ça, si vous ne devinez pas !). C'est peut- 
être le signe de la démocratisation tant attendue 
pour ce produit. 





et anoblissement. 





Démocratisation. 





Un Spectrum 48K (PAL) pour moins de 1000 F! 
Nous n'en avons pas cru nos yeux et pourtant 
les faits sont là : telle grande chaine de commer- 
cialisation HI FI VIDEO parisienne distribue bien 


OINCLAIR 


Le logiciel d'accompagement du QL, composé 
de quatre instruments intégrés (ABACUS, AR- 
CHIVE, EASEL et QUILL) a été adapté par 
PSION pour l'IBM PC, une preuve de plus, s’il en 
était besoin de la qualité de ce package, qui 
donnera des leçons de simplicité aux utilisateurs 
du PC. Ainsi modifié (capacités notemment), ce 
package s'appelle X-CHANGE. 


La liste des instructions et 
des commandes, les mnémoniques, les astuces. 
Clefs pour le ZX 81 - 95,00 FF 
Clefs pour le ZX Spectrum - 95,00 FF 
par Jean-François Séhan 





Basic approfondi, initiation au langage machine 
La pratique du ZX 81 - tome 1 - 85,00 FF 
La pratique du ZX Spectrum - tome 1- 95,00 FF 
par Xavier Linant de Bellefonds 





CHEZ 


Programmation en langage machine 
La pratique du ZX 81 - tome 2 - 95,00 FF 
La pratique du ZX Spectrum - tome 2 - 95,00 FF 
par Marcel Henrot 





En vente en librairie, en boutique informatique 
et auprès de P.S.I. Diffusion 


PS.1. DIFFUSION B.P. 86 
77402 LAGNYS sun MARNE CEDEX 





6) 006.44.35 
PSIDIF 600978 F 
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Toujours plus gros tel est mon 
device. 





OPUS commercialise un lecteur de disquette 
pour le Spectrum au prix de 200 livres l'unité 
(330 livres les deux unités), le DISCOVERY 1 ; ce 
lecteur fonctionne avec des disquettes 3,5 pou- 
ces et comprend de multiples connecteurs qui le 
rendent transparent, c'est à dire qu'il ne gène 
pas les autres extensions du système. 

Il est parfaitement possible de transformer son 
QL en ordinateur professionnel en y mettant le 
prix : Quest International Computers annonce la 
création d'un système complet avec console, 
double disquette et logiciels professionnels fai- 
sant un large usage des fenètres graphiques. 

Le « YSMegaBasic » une version délirante 
(22k !) du Basic pour le Spectrum qui comprend 
trois polices de caractères, trois tailles de carac- 
tères, 64 colonnes, l'organisation de fenêtres, 
etc. est due à un programmeur anglais Mike 
Leaman, et ne coute qu'une dizaine de livres. 





. Bons points. 





En France, Sinclair est leader sur le marché des 
ordinateurs domestiques avec 32 % du parc ins- 
tallé. 

Direco International annonce la disponibilité de 
140 logiciels éducatifs « Sinclair à l'école » sur 
ZX 81, ZX Spectrum et Spectrum Plus, couvrant 
l'ensemble des classes de la maternalle à la ter- 
minale. Tous ces logiciels ont été développés 
avec le concours de professeurs de l'Education 
Nationale, avant le lancement du programme 
« Informatique pour tous ». Direco rappelle à ce 
sujet que 8000 ordinateurs Sinclair sont déjà uti- 
lisés dans les écoles françaises. 





et mauvaise passe. 





Made in France 





AUTOPHIL est un logiciel tout nouveau pour ZX 
Spectrum commercialisé par RENECO : il per- 
met la programmation d'automatismes 
complexes à l’aide d'un langage de programma- 
tion simple, tandis que jusqu'à présent la plupart 
des entrées sorties impliquaient de l'utilisateur 
une programmation soignée, de préférence en 
langage-machine pour être efficaces. 

Un moniteur vidéo pour micro-ordinateurs bien 
de chez nous, enfin, avec haute résolution et 
donc bien adapté au QL : c'est le MC14 EU- 
REKA sera bientot diffusé sur le marché français 
aux environs de 2750 F. 
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La firme Sinclair, sans doute victime de son suc- 
cès, a de grosses difficultés de trésorerie : elle a 
dû passer des accords avec un groupe de 
presse important pour se renflouer. Il n'est pas 
possible de dire à l'heure actuelle quelles chan- 
gements ceci va introduire dans la ligne de pro- 
duction de Sinclair Research. 

L'espace QL de l'avenue Hoche, belle vitrine du 
nouveau Sinclair, a été récemment fermé ; espé- 
rons que ceci ne soit pas de trop mauvais au- 
gure pour la cadence de commercialisation du 
QL en France. 

Les microcartouches ressemblent un peu aux 
produits des magasins d'état dans les pays de 
l'Est : quand on en trouvait, elles étaient à 80 F; 
depuis qu'on n'en trouve plus du tout, on les a 
royalement baissées à 37 F... 





ADRESSES DES SOCIETES 
MENTIONNEES 


EUREKA Informatique, 39 rue Victor Massé, 
75009 PARIS.Opus Supplies Ltd, 55 Ormside 
Way, Holmethorpe Industrial Estate, Redhill, 
Surrey, GB. 

Quest International Computers, School Lane, 
Chandlers Ford, Hants, S05 3YY, GB 
RENECO, 37 Brd Biron, 93400 SAINT OUEN 
YSMegaBasic, Offer, Sportscene Specialist 
Press, 14 Rathbone Place, London, WIP 1DE 











Boîte à outils pour le navigateur 
de plaisance 





Lucien STREBLER 
MEGA-O Poche 





Parmi les activités de loisir justiciables d'une in- 
formatisation, la navigation maritime est un do- 
maine rêvé pour le programmeur que les PAC- 
MAN et les astéroïdes n’amusent plus. 

Il faut avoir navigué pour prendre vraiment 
conscience de l'importance que revêtent les cal- 
culs numériques et géométriques lors du dérou- 
lement d'un voyage, qu'il soit long ou court. 
L'auteur de ce petit livre semble précisément 
appartenir à la famille des « vieux loups de mer » 
et sait visiblement de quoi il parle : le mal de 
mer, il connait ! 

Lucien Strebler a développé une quinzaine de 
programmes couvrant l'essentiel des problèmes 
se posant au plaisancier sur trois machines dis- 
tinctes : une simple calculatrice programmable 
TI 59 (Texas Instruments), un petit Casio 
FX 702 P, et notre vieil ami le SPECTRUM 

A vrai dire, et sans que cela ne retire quoi que ce 
soit à la qualité des programmes destinés au 
SINCLAIR, nous imaginons mieux les deux pre- 
mières machines « sur le terrain » : récepteur TV 
et magnétophone ne font pas partie de l'arme- 
ment de première nécessité d'une petite unité ! 
Par contre, le SPECTRUM se prête fort bien à la 
préparation à terre d'un projet de voyage, une 
machine plus « légère » pouvant prendre le relais 
à la mer (les formules utilisées sont les mêmes) 
Deux logiciels seulement sont fournis pour le 
SPECTRUM : navigation côtière et navigation 
hauturière : ils rassemblent à eux seuls tous les 
petits programmes destinées aux machines « de 
poche ». On ne dispose pas pour rien de 16 ou 
48 K de mémoire vive, que diable ! 

Ce livre nous semble un « must » pour tout navi- 
gateur équipé de moyens informatiques, mais il 
peut éventuellement intéresser, à titre de curio- 
sité, les amoureux de la géométrie désireux de 
rêver, au coin du feu, à l'appel du grand large. 


P.G 











Deux livres lus pour vous 








Gaston MICLOT : 
Micro-gestionnaire pour 
Sinclair Mega-O poche 





Nous avions déjà eu l'occasion de parler de 
Gaston MICLOT dans cette rubrique lors de la 
sortie de son ouvrage « MICRO-COMPTA SUR 
SINCLAIR » : voici la suite ! 

Moins de programmes (14), mais plus longs car 
prenant en charge le « traitement de l'informa- 
tion », vocation première de l'informatique. 
Construction de graphes en tous genres, mani- 
pulation de tableaux, traitement de textes sim- 
plifié et fichiers sont autant d'outils directement 
empruntés aux professionnels 

Seulement, l'auteur pousse ici le bouchon un 
peu loin! Si nous avions beaucoup apprécié, 
dans son précédent petit livre, le choix consis- 
tant à n'utiliser l'ordinateur qu'entre une saisie 
au clavier de données et une impression sur pa- 
pier des résultats, en revanche nous ne pouvons 
pas croire sérieusement qu'une entreprise fera 
imprimer sa correspondance commerciale par 
une ALPHACOM où une GP 50 ! 

Personne n’acceptera non plus de passer six 
fois plus de temps qu'à la main pour mettre à 
jour un fichier ou seulement le consulter. De 
toute facon, la fiabilité de l'enregistrement sur 
cassette n'est pas suffisante pour un usage pro- 
fessionnel sur des informations importantes. 

Par contre, les différentes représentations gra- 
phiques proposées peuvent rendre des services 
lorsqu'une vue d'ensemble rapide de l'évolution 
d'une situation est recherchée. 

En fait, bien que les programmes de l'ouvrage 
aient exclusivement été écrits sur ZX 81 (pas un 
seul listing pour SPECTRUM), nous considérons 
plutôt ce livre comme un recueil de fort bonnes 
idées, mais que l'on ne pourra appliquer décem- 
ment que sur un système plus performant 
(SPECTRUM et MICRODRIVE par exemple). 


P.G. 
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Coté court 


Le petit problème sur le jeu de dés (n°11) où il fallait simuler le jet d'un dé 
avec ocurrence aléatoire des six faces a bien challengé les lecteurs 
d'ORDI-S : des solutions très élégantes frisant le quart de kilo octet 
arrivent encore. Plusieurs d’entre elles descendent bien en-dessous des 
225 octets de la solutions proposée au numéro 12, mais ne se conforment 
pas tout à fait au « cahier des charges » c'est-à-dire qu'elles dessinent un 
cadre plus petit, ou des points-pixels au lieu de points-pavés. Nous ne 
résistons pas cependant au plaisir de vous soumettre trois d’entre elles, 
parce qu'elles représentent Un effort d'analyse remarquable qui est de la 


très bonne programmation. 


Déde7à5 





La première est due à Eric CHEVALIER, que 
nous laissons exposer sa réalisation : 





A PL PEL PE 


"4086236" 
NT _(RBND#INT PI#D) +Ù 
tAPDT #0} 


Votre programme de lancement d’un dé peut- 
être, me semble-t-il, réduit à 198 octets. 

Le premier gain porte sur le dessin du dé. On 
utilise non plus un carré de 7 sur 7, mais un carré 
de 5 sur 5. Quelques « astuces » de dessin per- 
mettent d'obtenir un dé plus petit mais tout à fait 
lisible. 


Le gain le plus important consiste dans la réduc- 
tion de la Chaine de caractères représentant les 
diverses positions des points. J'utilise comme 
vous la division entière et le reste d’une division, 
mais par « 3 ». 


Sept octets suffisent à représenterles différentes 
positions des points. En effet ilf aut partir du 
principe que l’on peut obtenir une valeur du de 
par l'addition de deux où plusieurs valeurs, ou 
bien qu'il y a dans une valeur des éléments 
d'une valeur inférieure. Par exemple « 3 » s'ob- 
tient par l'addition des dessins de « 1 » et de 
«2». 


Soit À la valeur aléatoire obtenue à la ligne 6 du 
programme : la ligne 7 teste la parité de cette 
valeur. Si À est impair N=0, si À est pair 
N=1.- si N = 0 la section de chaine utilisée 
commencera au début de la chaîne et le point 
central sera dessiné (A impair) 
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— sinon la section de chaîne commencera au 
deuxième caractère de la chaîne (A pair) 

Les valeurs contenues dans la chaîne corres- 
pondent à la représentation du dé par le tableau 





Suivant: = \ 
012 _ 
3 4 5 D 
6 7 8 A 
valeur de À Valeurs utilisées dans la chaîne 
2 0 8 
3 4 0 8 
4 0 8 6 2 
5 4 0 8 6 2 
6 0 8 6 2 3 5 
\ 
1 LETU = SGNPI EX 
2 LETD=U+U 
3 LET A$ = «CHILI» 
4 PRINT «DRE», A$,, AS, A$,, 


CRE > 


5 LET PS - « 4086235 » 

6 LET A = INT (RND * INT PL * D) + U 

7 LETN = (A = INT (A/D) * D) 

8 FORI = Ü TO À 

9 LET C = INT (VAL P$ (N + I}/INT PI) 

10 PRINT AT C + U, VAL P$ (N+1) + UC 
“INT PL: 

11 NEXTI 


1 —- Dessin du cadre 


Ligne 3 : 2 caractères graphiques (touche 8) et 

3 espaces 

Ligne 4 : 1 —- 5 caractères graphiques (tou- 
ches 3, 6, 6, 6,6) 
2- 5 caractères graphiques (tou- 
ches 8, 6, 6, 6, Q) 


2 -— Points 
Ligne 10 1 caractère graphique (touche 3) 


Eric CHEVALIER 





Pourquoi pas un dé noir à 
points blancs ? 





La solution de Didier GRAND descend à 185 oc- 
tets en utilisant un décodage plus simple de la 
chaine-guide : la vidéo inverse est très jolle, 


mais, petit malin, supprime les difficultés inhé- 
rentes au dessin du cadre; très fort quand 
même : 






LET U=SGN PI 
L D= 





4 
4 LET 8 1153135" 

11 FOR I=l TO CODE "#" 

18 RÉ ere 

81 LET NT (RNDACODE “af +0 
Ê SEA NEINT (RD) S0eDeu To be 

#H/DaiNT IN/DI) STEP -D 

2ÉRAPRINT AT URL BRii-U) URL Bs 
58 NEXT I 


Clin d'oeil vers l’assembleur 





Bien sûr, nous n'avions pas exclu explicitement 
le langage machine et des petits futés en ont 
profité pour trouer le plancher des 100 octets, 
c'est le cas notamment de J.-M. CORBISIER qui 
nous propose deux versions dont une spéciale- 
ment économique en 73 octets ! 





1 REM 
19 RAND USR VAL 


99 octets) 
"16514" 


16514:253,126,52,1,6,57,145S 
16521:48,253,33,174,64,229,133 
16528:111,78,225,126,35,2S4,12€ 
16535:32,5,203,57,56,1,17S 
16542:197,229,205,6,8,225,193 
16549:16,236,201,8,65,73,99 
16556:107,119,7,3,3,3,3 
16563:3,132,118,5,12€,0,@ 
16570:0,126,133,118,,0,0 
16577:0,0,0,133,118,5,128 
16584:0,128,0,128,133,116,S 
16591:0,0,0,0,8,133,118 


16598:5,128,0,0,0,128,133 


16685:118,138,131,131,131,131,191 
16612:129 


16514 FD 7E 34 LD A,CIY+34» 
16517 01 06 38 LD BC,380€ 
16520 91 SUB € 
16521 30 FD JR NC,4888 
16523 21 AE 40 LD HL,40RE 
16526 ES PUSH HL 
16527 85 ADD A,L 
16528 6F LD  L,A 
16529 4E LD C,CHL 
16838 E1 POP HL 
16331 7E LD A, "HL) 
16532 23 INC HL 
16533 FE 68 CP 80 
16535 20 05 JR  NZ,4083 
16837 CB 39 SRL © 
16539 38 ei JR C,40R3 
16541 AF X0R A 
16542 CS PUSH BC 
16543 ES PUSH HL 
16544 CD 08 68  CALL 0808 
16547 El POP HL 
16548 C1 POP BC 
16549 18 EC DINZ 4093 
16351 C9 RET 

1 REM (73 octets) 


16514:253,126,52,1,6,30,145 


16528:111,78,225,126,35,254,1 


me 





16517 @1 dé 1E LD 


CP 1 
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INITIATION 








Le concours du plus beau 
carrelage 





A vos ZX 81 ! Spectrum et autres QL s'abstenir : 
N.BAILLY nous a fait parvenir ce carrelage s 
bre et régulier que l'on obtient en quelques ins- 
tructions. À vous de jouer, cette fois-ci sans limi- 
tation de mémoire, pour composer un carrelage 
de cathédrale ou de palais oriental avec le jeu de 
caractères graphiques du ZX 81 noirs où gris. 
Nous attendons des splendeurs... 











rs 

1/64) +64 

MNT (I/dd1xédé 
(1/128) +128>=64 TH 
(1/88) *88>=44 THEN P.S. Bravo à Christian MUGNERET. 

Pour son optimisation à 216 octets du pro- 
gramme n° 12. 





X.L.B. 








La chance et l'informatique 


Depuis toujours, joueurs et parieurs ont tenté de « forcer la chance » par 
des moyens mathématiques souvent basés sur des calculs de 
probabilités. 

Le développement de l'informatique individuelle met à la disposition du 
joueur une puissance de calcul considérable, pour essayer de gagner 
plus souvent à des jeux aussi variés que le tiercé, le loto, la roulette, ou 
les concours publicitaires. 

L'ordinateur n’est toutefois pas un devin, et il importe de rester conscient 
de ce qu'il peut ou ne peut pas faire dans de tels domaines ! 





La leçon des boules 





Plaçons dans une boîte une boule blanche et 
une boule noire, agitons le tout, et tirons une 
boule les yeux fermés : sauf truquage grossier, il 
est parfaitement clair que la boule noire a une 
chance sur deux de sortir. 

Admettons que la blanche sorte. Au coup sui- 
vant, quelle est la probabilité de sortie de la 
boule noire ? 

Il est tentant de songer à une probabilité meil- 
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leure qu'une chance sur deux , notamment si 
plusieurs coups antérieurs ont fait sortir la boule 
blanche... ERREUR ! 

Le déroulement des coups précédents, quel 
qu'il soit, ne change rien à la réalité des faits : il y 
a dans la boîte une boule blanche et une boule 
noire, et donc une probabilité de 50 % de sortie 
pour chaque boule. 

Des joueurs de roulette se sont ainsi ruinés en 
admettant l'existence de probabilités différentes 
pour certaines cases. La réussite d'une telle 
« martingale » supposerait une défectuosité mé- 
canique (usure localisée) ou une irrégularité du 
jeu. Des contrôles très stricts réduisent pratique- 
ment à néant de telles possibilités. 

Le raisonnement est sensiblement lé même en 
ce qui concerne le loto, la loterie nationale, et 
autres arlequins. 

Une analyse sur ordinateur des numéros sortis 
sur une longue période serait mathématique- 
ment vouée à l'échec. Nous verrons cependant 
que l'on peut songer à autre chose. 

En ce qui concerne les paris (tiercé et autres 
courses), le problème est tout différent : les di- 
vers concurrents n'ont nullement des probabill- 
tés identiques de gagner. 

Le pronostiqueur habile pèse soigneusement le 
plus grand nombre possible de critières pour 
Chaque partant, ce qui lui permet de recomman- 
der ceux qui lui paraissent les plus favorisés. 
Pour établir des pronostics valables, il faut bien 
sûr disposer de beaucoup d'informations, et les 
traiter selon une procédure performante. 

Cela, un ordinateur peut s'en charger, et beau- 
coup plus vite qu'un être humain ! 

Des parieurs, ont depuis longemps mis ce filon 
en exploitation : on trouve — quand on a de la 
chance ! — des cassettes destinées à la plupart 
des ordinateurs personnels connus, et permet- 
tent d'établir des pronostics assez sûrs en ma- 
tière de courses et de rencontres de football. 
Ces logiciels comportent deux volets : 

— une Volumineuse base de données regroupant 
le plus d'informations possibles sur les concur- 
rents les plus populaires, et sur les résultats des 
compétitions des dernières années. 

— un programme permettant d'une part la mise 
à jour permanente de cette masse d'informa- 
tions au moyen des résultats des compétitions 
au fur et à mesure qu'elles ont lieu et d’autre 
part L'EXPLOITATION de ces données selon les 
caractéristiques de la rencontre sur laquelle on 
désire établir un pronostic. 

Des résultats plus qu'encourageants auraient 
été obtenus par des utilisateurs adroits de ces 
logiciels, qui se vendent d'ailleurs assez cher. 
(ORDI-5 ne les vend pas). 





Les pouvoirs 
surnaturels 





On croit ou on n'y croit pas, les PARAPSYCHO- 
LOGUES font couler beaucoup d'encre et de sa- 
live ! Si certaines personnes voient en rêve un 
accident qui arrive le lendemain à un de leurs 
proches, si d'autres arrivent à faire tourner les 
tables, pourquoi diable ne pourraient-elles pas 
deviner la prochaine combinaison du loto! 


En ce qui nous concerne, nous croyons ce que 
nous voyons ! Nous avons donc écrit un petit 
programme destiné à tester les talents de toute 
personne soupçonnée de posséder des facultés 
extra-sensorielles. 








THEN GO TO 14 
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peut-gtrs 


THEH  FRIH 


THEH  FEIH 

THEH  FETHT 

aktement" 
LUN 1 











PRINT "mais 








Le logiciel de la figure 1 a été écrit sur un SPEC- 
TRUM, mais il pourrait facilement être adapté 
pour fonctionner sur d’autres machines. 
L'important est de bien en respecter le principe, 
qui consiste à faire exécuter à l'ordinateur une 
boucle de programme comportant deux instruc- 
tions parfaitement symétriques dont l’une incré- 
mente une variable A et l'autre une variable B 
sur simple pression d’une touche quelconque du 
clavier. Moyennant un nombre suffisent d'essais 
{mettons 100), il est statistiquement quasiment 
certain que À et B se partageront à égalité le 
total obtenu. 

Pour s'en convaincre, il suffit d'appuyer de fa- 
çon continue sur une touche du clavier, jusqu'à 
qu'un top sonore indique la fin du test, et l'édi- 
tion des résultats, 

Il est maintenant possible d'appuyer sur le cla- 
vier par pressions courtes mais VOLONTAIRES, 
et si l'on s’en sent capable, sous l'empire d'une 
INTENSE CONCENTRATION PSYCHIQUE. 

On peut même, puisque toutes les touches du 
clavier jouent ici le même rôle, aller jusqu'à frap- 
per des mots revêtant une signification « ri- 
tuelle » pour le sujet (au point où nous en som- 
mes, n'est-ce pas...) 

Les choses deviennent intéressantes si des ré- 
sultats différant notablement de la proportion 
normale 50/50 peuvent être régulièrement obte- 
nus : le sujet pourra alors être qualifié de « mé- 
dium », car il se sera montré capable : 
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— soit d'agir mentalement sur le fonctionnement 
de l'ordinateur. 

— soit de « lire dans les pensées » de la machine, 
et d’agir sur le clavier « au bon moment ». 

Un tel « médium » pourra alors tenter de se met- 
tre « en relation » avec la machine tirant le loto, 
ou avec une table de roulette ! 

Ceux de nos lecteurs qui commenceraient à se 
poser des questions sur l'état de santé de l'au- 
teur de ces lignes doivent savoir que des scienti- 
fiques tout-à-fait sérieux utilisent en laboratoire 
des procédés à peu près identiques pour tenter 
de fixer la limite existant nécessairement entre la 
réalité et la fiction dans ces domaines encore 
bien obscurs. 





Des outils pour médiums dur 
Spectrum 





Le programme de la figure 2 permet à un SPEC- 
TRÜM de générer des nombres entiers compris 
entre 1 et Un maximum donné. Une intervention 
manuelle de l'opérateur stoppe la machine dans 
son exploration continuelle du générateur de 
nombres aléatoires de sa ROM. 

Si vous n'êtes pas médium, le procédé présente 
l'avantage de permettre un meilleur « brassage » 
que la lecture directe de la liste pré- 
programmée. 


“ é ! 11 
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Si par contre les tests précédents ont donné des 
résultats positifs, pourquoi donc ne pourriez- 
vous pas faire « avouer » à la machine quels se- 
ront les prochains nombres qui sortiront au 
loto ? On n'est pas médium pour rien, que dia- 
ble ! 

Le petit logiciel de la figure 3 est capable, à par- 
tir d'un mot quelconque entré au clavier, d'en 
établir toute une série d'ANAGRAMMES (mots 
een les mêmes lettres dans un ordre diffé- 
rent). 

La recherche s'opère de façon aléatoire, car une 
exploration systématique deviendrait vite impra- 
ticable sur des mots de longueur moyenne. 
Rappelons en effet que pour N lettres, le nombre 
d'anagrammes distincts est N! (factorielle N) 
soit 1x2x3X..xN. 


Avec seulement six lettres, on arrive à 720 pos- 
sibilités, avec sept à 5040, avec huit à 40320, 
etc! 








E 16 
LOUChEs. 





THEN GO TO 





“THEN GO TO &@ 
Œ 1984 


Bien des concours publicitaires sont basés sur la 
recherche d'une anagramme de la marque du 
produit. Si vous n'êtes pas médium, ce pro- 
gramme pourra vous aider à balayer un certain 
nombre de possibilités. Si par contre vous jouis- 
sez de facultés supra-normales, vous ne man- 
querez certes pas de trouver très vite Une excel- 
lente solution, n'est-ce pas ? 






: Patrick GUEULLE 





Ah ! les belles courbes 


L'informatique individuelle se prête à merveille à la construction rapide et 
précise de toutes sortes de graphiques, de l’histogramme au 

« camembert » en passant par le classique graphe cartésien. 

Un ordinateur possédant la haute résolution, éventuellement complété 
par une imprimante graphique, peut faire gagner énormément de temps à 
tout utilisateur de tels diagrammes « x-y ». 

Des logiciels plus ou moins sophistiqués peuvent être utilisés à cet effet : 
nous vous en proposons ici un fort simple mais assez souple d'emploi, 
destiné à « tourner » sur un SPECTRUM éventuellement muni d'une 


imprimante. 


I! n'y a plus qu'à tirer l'échelle ! 





L'instruction PLOT du SPECTRUM suffirait pres- 
que, à elle seule, pour tracer des courbes point 
par point. Elle « noircit » en effet n'importe quel 
point de l'écran (pixel) dont on spécifie les coor- 
données rectangulaires : PLOT X,Y. 

X peut varier de 0 à 255, et Y de 0 à 175. 
Cependant, pour être exploitable, une courbe 
doit être étalonnée : à la main, on utilise du pa- 
pier quadrillé sur lequel on fait figurer les échel- 
les et les unités retenues. L'ordinateur, dessina- 
teur infatigable, peut exécuter un quadrillage en 
un tournemain, plus ou moins serré selon les va- 
leurs imposées aux boucles FOR-NEXT 
commandant le traçage opéré par les instruc- 
tions DRAW. 


L'indication des échelles adoptées est simple à 
porter sur le diagramme, puisque le SPECTRUM 
permet le mélange direct de textes et de gra- 
phismes sur un même écran. Avec d'autres ma- 
chines la chose serait possible, mais beaucoup 
plus délicate. 


Les lignes 10 à 25 du programme de la figure 1 
servent donc à l'acquisition par l'ordinateur du 
détail des unités et des échelles à utiliser. Les 
lignes 65 et 75 assurent l'impression de ces don- 
nées essentielles en bordure de quadrillage. 
Celui-ci possède dix divisions sur chaque axe, 
ce qui permet une lecture facile quelle que soit la 
pleine échelle choisie. Un X est placé en bout 
d'axe des abscisses, Un Y en haut de celui des 
ordonnées, et une procédure fort simple trans- 
forme ce X ou ce Y en point d'interrogation lors- 
que la machine attend une valeur : l'opérateur 
ne risque pas, de cette façon, de perdre le fil de 
son travail de saisie, alors qu'aucune place ne se 
trouve gaspillée sur l'écran pour l'impression de 
messages « de service ». 

Chaque point spécifié par ses coordonnées X 
et Ÿ est inscrit sur le graphe, en noir sur blanc 
sur noir s’il vient à tomber sur une ligne du qua- 
drillage : c'est l'attribut OVER 1 de la ligne 140 
qui permet cette distinction automatique, qui 
fait si cruellement défaut à d’autres machines. 













LÉREEEREREEEE 
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FRINT “Fleine æchællel 
MPUT CE y 

BRIUT CUnite Fe: TN 

FOR Faë TO 170 STEP 1) 





B,8: MNEXT 


INPUT 


AT æ1,53 


INPUT 4 
LET yeuy+17o 
im 


1 31984 


Les points portés sur le graphique ne sont pas 
réunis entre eux par la machine : l'instruction 
DRAVW, facile à ajouter d'ailleurs, ne pourrait en 


effet accomplir qu'une « interpolation linéaire » 
entre deux points, ce qui ne correspond pas for- 
cément aux besoins de l'utilisateur : on obtient 
une bien plus belle courbe en réunissant les 
points « à la main », ce qui est d’ailleurs un plai- 
sir après que la machine se soit chargée du tra- 
vail si fastidieux de placement des points ! 

La figure 2 fournit un exemple de graphiques 
établi par le SPECTRUM, tandis que la figure 3 
montre le travail restant à exécuter manuelle- 
ment. 


on trouve dans les bonnes papeteries des règles 
souples, armées de plomb, qui peuvent être 
conformées à la disposition des points qui rem- 
placent avantageusement les anciens « pisto- 
lets » : il ne reste alors plus qu'à tracer ! 
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Copie « à la trace » 





L'écran TV ne peut généralement être considéré 
que comme un support intermédiaire pour les 
courbes tracées, qu'il faudra tôt ou tard transfé- 
rer sur papier. 

Les machines SINCLAIR (ZX 81 et SPECTRUM) 


possèdent une très commode instruction COPY 
déclenchant la recopie exacte du contenu de 
l'écran sur l'imprimante SINCLAIR où ALPHA- 
COM. Dans notre programme, le simple fait de 
presser la touche ENTER seule lorsque la ma- 
chine attend une valeur X appelle la ligne 105 
qui contient un COPY. C'est pour cela que X est 
entré sous forme de chaîne alors que Y rentre 
plus simplement sous forme numérique. 

Pour des applications « sérieuses », on éprou- 
vera cependant sans doute le besoin d'une co- 
pie de qualité sur papier ordinaire. Aussi ce pro- 
gramme est-il adoptable à une interface 
imprimante : ici l'interface KEMPSTON. 

La commutation de l'interface pour telle ou telle 
imprimante se fait au moyen de commandes 
frappées au clavier, ou même de lignes de pro- 
gramme (lignes 5 à 7 de notre logiciel). 

Pour les utilisateurs qui trouveraient insuffisant le 
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format des copies d'écran obtenues, il suffit de 
remplacer le zéro terminant la ligne 7 par un 1 
pour obtenir pratiquement le plein format A4 
(21 x 29,7): figure 4. 

Bien entendu, ces lignes « spécifiques KEMPS- 
TON » seront supprimées par nos lecteurs utili- 
sant une autre interface. 


Ce logiciel est suffisamment court pour pouvoir 
être saisi au clavier en peu de minutes, mais il 
peut faire gagner un temps considérable à tout 
utilisateur régulier de graphiques X-Y ou T-Y 
possédant une imprimante réellement capable 
de reproduire des écrans haute résolution de 
SPECTRUM. 


Patrick GUEULLE 














F BON DE COMMANDE 


(à retourner à LIST - Service Numéros - 
5, place du Colonel-Fabien - 75491 Paris Cedex 10). 





Nom Prénom __ 


Adresse _ 


RETOURNEZ D re 4 
LE BON Code Postal L_1 1 1 1 | Ville ___ _— 

CI-CONTRE Je désire recevoir la collection complète des 11 premiers 

d numéros de LIST au prix de 109F. Je joins monrèglementindis- 

Pr pensable à l'ordre de LIST. 


(Offre valable pour la France métropolitaine) 





























ENFIN POUR VOTRE 


1X 87 


OFFREZ LUI UNE DISQUETTE 


INTERFACE ZX FLOP 850,00 

FLOPPY 54°” SF 2200,00 
FLOPPY 32° SF 2400,00 
FLOPPY 32” DF 2600,00 
FLOPPY 3” 

COFFRET ALIM 


CREE 





138 Avenue THIERS 


69006 LYON Mandsr, "0 
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Trois jeux QL 





Q. Briques 





Q. Briques est une version du jeu 
Casse Briques pour le QL. I! s’agit 
de détruire un mur à l’aide d’une 
balle. Utilisez les touches du 
curseur pour bouger la raquette. Ce 
programme pourrait être 
considérablement optimisé, mais il 
recourt à des procédures simples à 
des fins pédagogiques. 


Il utilise cinq variables : x : ordonnée de la balle, 
y : abcisse de la balle, py : abcisse de la ra- 
quette, a et b : mouvements de la balle. Au dé- 
but dujeua=b=1:doncx=x+1ety=y 

+ 1; si la balle touche le mur ou une brique 
a ou b = —b, les valeurs de a et b peuvent 
c être — 1 ou 1 ? Mais il y a un « hic » avec ce 
système : la balle détruira Sur le mur une brique 
sur deux. 

Comment savoir si la balle touche une brique ou 
non ? Eh bien chaque brique est codée : br (li- 
gne, colonne), cette variable prend la valeur 0 si 
il y a une brique ou 1 s'il n'y en a pas. 








10 REMark Q.BRIQUES V.1-3 
(ce) Mars 1985 Frederic Huvnh 
presentation 
var 
ecran 
nouveau 
ecran 
jeu 
GO TO 120 
Go TO 100 
DEFine PROCedure ecran 
PAPER O:CLS:CLS #0 
PAPER 1:PRINT * 
FOR i-1 TO 20-(niveau-1) 
FOR i=2 TO 6 


100 
110 
120 
140 
150 
160 
170 


















1060 END FOR i 










1070 DIM br(7,35) 

1080 x=7:y-2 

1090 py-15 

1100 AT #0,1,0:PRINT #0:;"BALLES : 
1,26:PRINT #0; "SCORE : 

1110 PAPER O0 

1120 RETurn 

1130 DEFine PROCedure jeu 

1140 AT X,Y: PRINT ” ors 


1150 AT 20-niveau PAPER 4:PRINT 
1160 AT x.y: 
1170 IF x<6 THEN balle 

1180 1F KEYROW(1)<:0 THEN mov 
1190 IF xX-(19-niveau) THEN Check 
1200 GO TO 1140 

DEFine PROCedure mov 
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LAT i,0: PRINT 


“;ba:AT #0,1,12:PRINT #0; "POINTS : 


Il arrive (rarement) que la balle « tourne en 
rond » c'est-à-dire qu'elle ne marque pas de 
points : le jeu devient donc monotone et il est 
impossible de gagner. Pour remédier à ce pro- 
blème il suffit de presser la touche < ESC > qui 
fait automatiquement changer la balle, mais utili- 
sez cette touche que lorsque c'est nécessaire, 
en effet elle fait perdre cinq points à chaque 
pression. 

Il y a plusieurs niveaux de difficulté, pour gagner 
il faut atteindre le niveau 7. Chaque fois que 
vous montez d'un niveau la raquette en fait de 
même, il faut donc être de plus en plus rapide. 

— Procédure écran : affiche le mur 

— Procédure jeu : boucle principale 

— Procédure mov : bouge la raquette 

— Procédure balle : vérifie si la balle touche une 
brique 
— Procédure nouveau : indique le niveau de jeu 
— Procédure var : définition des variables 

— Procédure check : vérifie si la balle est passée 
à côté de la raquette 

— Procédure hors : fait avancer la balle et vérifie 
sa position 

— Procédure nbal : change la balle 

— Procédure bravo : fin de la partie 

— Procédure fin : annonce la défaite 

— Procédure présentation : présentation 

— Procédure encore : demande si le joueur veut 
rejouer 

— Procédure gagne : fin du jeu 

ge ooseue ord(a$) : affichage d'un message 
a: 





""IAT i,36:PRINT 


AT i-1,1:PAPER INTCRND(2 TO 6)):PRINT " 


":SC:AT #0, 


":PAPER 0 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


1500 
1510 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


1630 
XT i 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


en niveau 


AT 20-niveau,py-1:PRINT " 
IF KEYROW(1)-2 AND py>1 THEN py=py-2 


IF KEYROW(1):8 THEN Sc=sc-5:AT X,Y:PRINT “ ‘:nbal 
IF KEYROW(1)-16 AND py:34 THEN py=py+2 
RETUurn 


DEFine PROCedure balle 

IF br(x,y)=1 THEN 

RETUurn 

ELSE 

BEEP 500,x 

AT X,Y: PRINT ® " 

br(x,y)=1 

Sc=sc+1 

IF X<)1 THEN a--a 

AT #0,1,21:PRINT #0:sc;" " 

END IF 

IF (sc MOD 20)-0 THEN nbal 

IF sc-req THEN bravo:GO TO 170 
END DEFine 

DEFine PROCedure nouveau 

INK 5 
niveau-niveau-1:sc-0 
CSIZE 3,1 

AT 5,9:PRINT "NIVEAU 
PAUSE 100 

CSIZE 2,0 
reg=120-(njiveaux10) 
AT 13,4:INK 3:PRINT “Nombre de points requis pour “:AT 14,7:PRINT " passage 
“iniveau+1:AT 15,17:FLASH 1:INK 4:PRINT req:FLASH O 





“:niveau 


INK 6 
AT 19,3:PRINT “Pressez 





3: FLASH 1:PRINT "ENTER"; :FLASH O:PRINT": pour comm 


encer” 


IF KEYROW(1).>1 THEN GO TO 1520 
INK 7 

RETurn 

END DEFine 

DEFine PROCedure var 
:Score-0:a=1:b-1:ba- 
RETUurn 

DEFine PROCedure check 
IF V>py+1 OR y<py-1 THEN GO TO 1620 

-a:BEËP 100,0:RETurn 

a-1:AT X,Y:PRINT “ ":FOR i=0 TO 30:BEEP 5000,i:BEEP 5000,ix2:BEEP 5000, 





:change-0:niveau-0 








be 





i/2:NEXT i 


AT 0,0:CSIZE 3,1:AT 5,7:PRINT "BALLE PERDUE !!":CSIZE 2,0:FOR i-0 TO 300:NE 





IF ba-0 THEN fin:encore:GO TO 180 
AT 0,0:nbal 

AT #0,1,9:PRINT #0;ba;" 
END DEFine 

DEFine FROCedure hors 
X=X+a:y=v+D 

1F x‘-1 THEN a-1:BEEP 100,0 





















1710 IF V<=1 THEN ÿ=1 b:BEEP 100,0 
1720 IF V>-35 THEN y-35:b--b:BEEP 100,0 
1730 RETurn 

1740 END DEFine 

1750 DEFine PROCedure nbal 

1760 IF change=1 THEN 

1770 change-0:y-3 

1780 ELSE 

1790 change-1:y-2 

1800 END IF 

1810 IF RND:.7 THEN Y=RND(4 TO 7) 

1820 CSIZE 3,1 

1830 INK 5 

1840 AT 5, 
1850 CSIZE 2,0 

1860 FOR i-0 TO 100:NEXT i 

1870 AT 20-niveau,O:INK 6 

1880 PRINT “  Pressez :";:FLASH 1:PRINT 
r  ":INK 6 

1890 1F KEYROW(1)::1 THEN GO TO 1890 
1900 x:7:a=1:b-1 

1910 AT 20-niveau,3:PRINT " 

1920 AT 10,6:PRINT * 






'RINT “CHANGEMENT DE BALLE" 








1950 RETUrn 
1960 DEFine PROCedure bravo 
1970 CLS #0 


“ENTER" 





“SAT 11,5:PRINT 
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: FLASH O:PRINT 


pour continue 
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1980 AT 0,0 

1990 CSIZE 3,1:FOR i-0 TO 6O:AT 4,11:INK i:PRINT "BRAVO !":NEXT i:CSIZE 2,0 
2000 AT 10,3:INK 6:PRINT "Vous avez atteint les ";req;" pointS":AT 11,5:PRINT 
ecessaires pour le passage ":AT 12,13:PRINT “en niveau “;niveau+1 

2010 AT 20-niveau,3:INK 4:PRINT “Pressez €" 

2010 AT 20-niveau,3:1NK 4.PRINT "Pressez « 
NT “> pour continuer 
2020 IF KEYROW(1)<:1 THEN GO TO 2020 

2030 CLS 

2040 CSIZE 3,1 

2050 :INK 4:PRINT "TOTAL DES POINTS" 
2060 
2070 














FLASH L:PRINT "ENTER"; :FLASH O:PRI 





:PRINT "POINTS : "sc 





2080 PRINT "BALLES : ";b: x 10" 
2090 & PRINT “SCORE : ";score 
2100 PRINT “NIVEAU : “iniveau;" x 10" 


PRINT “----- 
2120 c+(bax10)+(niveaux10)-score 
2130 :PRINT "TOTAL : ";score 
2140 CSIZE 2,0 

2150 INK T 19,3:PRINT “Pressez < 
ur continuer." 

2160 [F KEYROW(1)<>1 THEN GO TO 2160 
2170 CLS 

2180 ba-ba-+1 

2190 1F niveau+1-7 THEN gagne 

2200 RETurn 

2210 DEFine PROCedure fin 

2220 ecran 

2230 CSIZE 3,1 

2240 INK T 5,7:PRINT "VOUS AVEZ PERDU" 





2110 





1:PRINT "ENTER 





FLASH O:PRINT 









2250 INK SIZE 2,0 
2260 score-score+sCc 
2270 AT 12,7:PRINT “Votre score est de : “;score:AT 13,12:PRINT “en niveau : ";n 


iveau 
2280 FOR 
2290 AT 19 
ur continuer 
2300 IF KEYROW(1)<>1 THEN GO TO 2300 

2310 AT 19,0:PRINT * # 
2320 FOR i-0 TO 3OO:NEXT Îi:PAUSE 5:PAUSE 5 

2330 RETurn 

2340 LEFine PROCedure presentation 

2350 MODE 8:PAPER O:CLS:CLS #0 

2360 OPEN #4,scr_442x200a38x16 

2370 BORDER #4,3,6 

2380 INK #4,2:AT #4,1,11:PRINT #4; "FREDERIC HUYNH" 

2390 INK #4,1:AT #4,4,14: PRINT #4; "PRESENTE" 

2400 CSIZE #4,3,1 

2410 FOR i=0 TO 100:INK #4 
#4,3: PRINT #4; "Q.BRIQUES 
2420 CSIZE #4,2,0:INK #4,5 

2430 AT #4,11.6:PRINT #4:"(C) 1985 HUYNH SOFTWARE": INK #4, 100 
2440 AT #4,18.3:PRINT #4;"Pressez «ENTER» pour commencer" 
2450 IF KEYROW(1)<>1 THEN GO TO 2450 

2460 FOR i-1 TO 60 

2470 BORDER #4,i,i:BEEP 500,60-i 

2480 NEXT i 

BORDER #4,65,1 

FOR i-0 TO SOO:NEXT i 

CLOSE #4 

CLS 

PAUSE 300 

RETUrn 

END DEFine 

DEFine PROCedure encore 






TO SQU:NEXT i 
:INK 7:PRINT “Pressez <" 


: FLASH 1:PRINT "ENTER"; :FLASH O:PRINT 














AT #4,4,9:PRINT #4;"Q.BRIQUES":NEXT i:AT #4,4,9: INK 




















CLS #0 

AT _#0,3,0 

INPUT #0;"Desirez vous rejouer 7 > ";a$ 
1F a$-"" THEN GO TO 2590 





1F a$-"oui” OR a$-"o” THEN RETUrn 
CLS 

CLS #0 

PRINT #0;"(c) Frederic Huynh" 
STOP 


END DEFine 

2670 DEFine PROCedure gagne 
2680 CLS:CLS #0 

2690 ord “Bravo , vous avez atteint le niveau 7 : toutes mes felicitations si v 
ous n'avez pas triche 
: 2700 PRINT\\ 

? 2710 ord "Merci d'avoir joue avec moi 
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2720 encore:GO TO 180 

2730 END DEFine 

2740 DEFine PROCedure ord(a$) 

2750 FOR i-1 TO LEN(a$) 

2760 PRINT a$(i);:BEEP 100,0:PAUSE 5 
2770 END FOR i 

2780 PRINT " * 

2790 RETurn 

2800 END DEFine 

10600 REMArkK *xxxxxxexxeraexxE RAR MER EX MMM MERE REXEL RXEELELENLENEEENLEREE 
10610 DELETE mdvi_Q_ Briques 

10620 SAVE mdv1_Q_ Briques 

10630 DIR mdv1_ 

10640 STOP 

10650 PAUSE 10000 

10660 BAUD 1200 

10670 OPEN #4,seric 

10680 LIST #4 

10690 CLOSE #4 

10700 STOP 


10710 REMArk xxxxxxR2xxxx xxx xxx XXE RENRXRRE LR EE EE LEE LRREEEELXLEMX AR NN 





F. HUYNH 








Lignes 100 à 240: pouce principale 

— Procédure mot : choix d'un mot au hasard 
Pendu Procédure présentation : règle du jeu 

— Procédure caractère : affichage de la potence 
— Procédure pendu (x) : construction du corps 
— Procédure affchage : affichage du mot caché 





incii — Procédure entrée : entrée des lettres 
Le pee ie prog aTe FENOÈ — Procédure var : mise en place des variables 
est simple : trouver un mot choisi — Procédure check : vérifie la lettre ou le mot 
par l'ordinateur en faisant au plus — Procédure potence : affichage du corps 
dix fautes. Il faut pour cela entrer — Procédure efface : prépare l'écran 
une par une des lettres, si elles sont … — Procédure gagne : annonce la victoire 
dans la composition du mot, elles pee AMAR 
viendront s’afficher à un endroit a one encore : demande si le joueur veut 
précis. Si elles sont fausses une — Procédure prénom : demande le nom du 
potence se construira peu à peu. joueur 
Voici une brève descriptions du ILest évidemment possible de changer les mots 
programme : tirés en modifiant les DATA 1070-1120. 


10 REMark Pendu v.0-1 


100 var 

110 PAPER #1,0:PAPER #2,0 

120 MODE 8 

130 presentation 

140 CLS:PAUSE 100 

150 prenom 

160 PAPER O:CLS 

170 caractere 

180 mot 

190 affichage 

200 REPeat jeu 

210 entree 

220 check 

230 END REPeat jeu 

240 STOP 

1000 DEFine PROCedure mot 
1010 RANDOMISE 

1020 RESTORE 

FOR i-1 TO RND(1 TO 100) 
READ m$ 

END FOR i 

RETUrn 

DATA "INUTILE", "DORMIR", "LONGTEMPS", "COMMUNICATION" 
", "SEL", "BIEN", "MAL", 
EXPLICATION", "ANNEXI EFFORT* 
JOURNAL", "CHLOROFORME” , GRENOUILLE" 



























“IMPORTANCE”, "APPELLATI 
SUCRE", "POIVRE", "POULE 






















PHAGOCYTOSE" , “DIAPEDESE" 
RTIMONIE", “ANAPHORE", "PROSOPOPEE”" , " 


ANGAGE” , "EUPHEMISME" , "PA 
, "METONYMIE" 

, "PHOTOGRAPHIE 
OAGULATION" , “TRANSLATION 
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1120 


1130 


1440 








































1450 


1460 


1470 
1480 
7 

1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


1110DATA "LITOTE", "HORLOGE", "MICROPROCESSEUR" , "LAVAGE 
ANTECEDENT" 


DEVALUAT ION 


DITISME" 
NTERFACE 
UEL", 









etes deja 
vous vous 


jambe 





'ARAPLUIE", 
ECOLOGIE", 


CHIEN”, "CHA 
INFLATION" 





“EXODE", "URBANISME" , "OMNI VORE 

CONJONCTURE” , "ACTUEL", REPUBLIQUE" 

"EPILOSCOPE", “DIAPOSITIVE". HEBDOMADAIRE", “OPPRESSION" 

AFFECTATION", "LIMOGER", "LICENCIER", "EPILOGUE" , "ORDINATEUR", "GENI AL. 

JOYSTICK", "MANETTE", "EXPANSION", “DEMOGRAPHIE" , "PSYCOLOGIE" , "INTELLECT 

"LAMENTABLE", "PRECISION" 

END DEFine mot 

DEFine PROCedure presentation 

OPEN #4,scr_442x200a38x16 

BORDER #4,2,1,3 

CLS #4 

INK #4,2:AT #4,0,11:PRINT #4; "FREDERIC HUYNH" 

INK #4,1:AT #4,3,14: PRINT #4; "PRESENTE" 

INK #4,3:CSIZE #4,3,1:AT #4,3,11:PRINT #4: "PENDU" :CSIZE #4,2,0:INK #4,4 

AT #4,10,0:PRINT #4 Tout le monde connait bien evidem ment la regle de c 

Decouvrez le mot cache en entrant une par une des lettres , si elles son 
elles viendront s'afficher a l'ecranmais attention si elles sont fauss 

mort vous guette ... 

INK #4,6:FLASH #4,1:AT #4,18,11:PRINT #4; "PRESSEZ ‘ENTER ":FLASH #4,0 
IF KEYROW(1)-1 THEN RETUrn 

Go TO 1230 

END DEFine presentation 

DEFine PROCedure caractere 

CLS 

C$-CHR$(231) 

INK 4:PAPER 4:AT 19,20:PRINT FILL$S(CS, 10) 

FOR {-1 TO 18:AT i,25:PRINT c$ 

AT 1,25:PRINT FILL$(CS, 10) 

AT 18,22:PRINT FILLS(C$,6) 

AT 1,3:PAPER 1:PRINT " 


» "CLASSEUR 
“UNION” 








DATA 



































T 3,3:PRINT * “AT 2,3:PRINT * 


INK 3:PAPER O:AT 2,4:PRINT "PENDU" 


AT 6,1:PRINT “Mot a rechercher :": 
END DEFine caractere 

FOR i-0 TO 300 

DEFine PROCedure pendu (x) 

INK X:PAPER X 

SELect ON x 

AT 2,30:PRINT C$:AT 3,30:PRINT c$:message$-"Voici deja la corde . 
LAT 4,29:PRINT CH&CRECH:AT 5,29:PRINT c&CHECÉ: AT 6,29: PRINT cf&cPec$:mes 
J'ai l'impression que vous avez une drole de tete 
AT 7,30:PRINT c$:message$-="Corde+cou-aie aie aie !! 
:FOR i=8 TO 11:AT i,29:PRINT c$&c$&c$:NEXT i:message: 


AT i1,1:PRINT ‘Lettres utilisees :" 








Un corps ca pese 1 
AT 8,28:PRINT C$:FOR i-8 TO 11:AT i,27:PRINT C$:NEXT i:message$-"Vous en 
au bras ..." 
8,32:PRINT c$:FOR 
confesser ? " 

:FOR i=12 TO 15:AT i,2S:PRINT C$:NEXT i:messageS- 
" ; 

B:AT 16.28:PRINT c$&c$:message$-"Vous avez deja un pied dans la tombe ..." 
:FOR i-12 TO 15:AT i,31:PRINT C$:NEXT i:message$-"Une derniere vonlontee 





LAT 





TO 11:AT i,33:PRINT C$:NEXT i:message$-"Desirez 





Ca vous fait une belle 











<10:AT 16,31:PRINT c$&c$:message$-"Bienvenue en enfer 
END SELect 

PAPER O:INK 6 

END DEFine pendu 

DEFine PROCedure affichage 

AT 8,1:INK 7 

FOR i-1 TO LEN (m$) 

PRINT "_ 
END FOR i 

INK 4 

END DEFine affichage 

DEFine PROCedure entree 

INK 5 

IF PEEK (163976)-0 THEN POKE 163976,255 











AT 15,1:INPUT "Votre lettre 518 

IF 1$ THEN GO TO 1630 

1$-1$C1) 

IF CODE (1$)<65 OR CODE (1$)90 THEN GO TO 1630 
efface 

prop=prop+1 





d$(prop)=1$:FOR i-1 TO prop- 
NEXT i 

IF er-1 THEN er-0:prop-prop-1:GO0 TO 1630 

END DEFine entree 

DEFine PROCedure var 

prop-0:DIM bon(20):b-0:x-0:lettre-0:DIM d$(27):er-0 
END DEFine var 

DEFine PROCedure check 

FOR i-1 TO LEN (mS) 


:IF 1$-d$(i> THEN er-1:EXIT i 
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IF 1$-m$(i) THEN b-1:bon(i)= 
END FOR ji 

IF b-0 THEN potence:RETUrn 
INK 6 

FOR i-1 TO LEN (m$) 

IF bon(i)-i THEN AT 8,i:PRINT m$(i) 

END FOR i 

efface 

IF lettre-LEN (m$) THEN gagne 

INK 2 

AT 15,1:INPUT “Avez vous trouve : ";2$ 

IF 2$<2"0" AND 2$‘>"OUl" THEN b-0:efface:RETurn 

efface 

INK 1 

AT 15,1: PRINT “Votre solution":INPUT " : ";solution$:AT 16,0:PRINT FILL$(" 





:lettre-lettre+1 



















#20) 


1930 1F solution$-m$ THEN gagne 

1940 AT 15,1:PRINT "C'est faux,vous etes “:AT 16,1:PRINT “mort.":AT 17,1:PRINT " 
Bienvenu en enfer ! 
1950 mort 

1960 END DEFine check 

1970 DEFine PROCedure potence 

1980 X-X+1:AT 13,X:PRINT 1$ 

1990 pendu x 

2000 AT #0,1,0:PRINT #0:FILLS(" ",70) 
2010 AT #0,1,0:PRINT #0;messages$ 
2020 IF x-10 THEN mort 

2030 END DEFine 

DEFine PROCedure efface 

AT 15,0:PRINT " 

END DEFine efface 

DEFine PROCedure gagne 











INK 6 
FOR i:6 TO 16:AT i,0:PRINT FILLS(" ",21) 
AT #0,1,0:PRINT #0;FILL$(" ",70) 





AT 6,1:PRINT "BRAVO vous avez reussi":AT 7,1:PRINT ‘a trouver le mot : " 
INK S:AT B,1:PRINT m$ 
INK G:AT 9,1:PRINT “en 
encore 

END DEFine gagne 
DEFine PROCedure mort 
FOR i-0 TO 1500:NEXT i 
FOR 1-6 TO 18:AT i,0:PRINT FILL$(" ",21) 

PAPER 1:FOR i=5 TO 17:AT i,5:PRINT FILLS$(" *,7) 
PAPER 2:FOR i-6 TO 13:AT i,8:PRINT “ " 
AT 8,6:PRINT ‘ ne 

PAPER 1:1NK 3 

AT 17,8-(LENCnOmM#)>/2): PRINT nom$:AT 15 
K 6:PAPER O 

2240 FOR i:0 TO 1000:NEXT i 

2250 AT #0,1,0:PRINT #0;FILLS(" ",70) 

2260 FOR i-5 TO 18:AT i,0:PRINT FILL$(" ",21) 

2270 AT 6,1: ous n'avez pas reussi”:PRINT “ a trouver le mot :" 
2280 INK S:PRINT :m$: INK 6 
2290 PRINT “ Vous etes mort apres 
2300 encore 

2310 END DEFine mort 

2320 DEFine PROCedure encore 

2330 AT 18,1:PRINT "Desirez vous rejouer ?" 

2340 INPUT * :a$ 

2350 IF a$-"0" OR a$-"OUI" THEN RUN 

2360 CLS:CLOSE #4 

2370 CLS #0 

2380 PRINT "La prochaine fois (si vous etes enco re vivant) essavez la roulette 
russe. ..... pour changer tt!" 


essai 











PRINT "ICI":AT 16 





PRINT "GIT":IN 

















:PRINT “ ";prop;" essais." 








TOP 
2410 END DEFine encore 
2420 DEFine PROCedure p 
2430 AT #0,1,0:INPUT #0;"Quel est votre nom Svp (max 7) “noms 
2440 IF LEN(nom$)>7 THEN GO TO 2430 

2450 AT #0,1,0:PRINT #O0;FILL$(" ",70) 


2460 END DEFine prenom 
10000 REMArk xxxxxxxxxxxxxxxxxexxx x XXE XX REX EN EEE NEEXXNREXENEEXENALEALEREE 





10010 CLS :CLS #0 

10020 DELETE MDV1_Pendu 
10030 SAVE MDV1_ Pendu 
10040 DIR mdvl_ 

10050 STOP 

10060 BAUD 1200 

10070 OPEN #5,ser1c 
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10080 PAUSE 10000 
10090 LIST #5 
10100 CLOSE #5 
10110 STOP 


10120 REMArk xxx x x x x 6 2 6 CN XX XX ED XX XX XX XX NC 


F. KIM 


il s’agit de retrouver une suite de 
couleurs que l’ordinateur a 
préalablement affichée . 


Simon 


10 REMark SIMON V.0-1 


(c) Mars 1985 Frederic Huvnh . Paris 


PAPER #1,0:PAPER #2,0:CLS #1:CLS #2:CLS #0 












100 
110 var 

120 initialisation 

130 page 

140 jeu 

150 fin 

160 CLS #0 

170 score-0:comp-0:er-0:DIM So(100):DIN h(100):b-0:initialisation:GO TO 130 

1000 DEFine PROCedure initialisation 

1010 OPEN #4,scr_442x200a38X16 

1020 BORDER #4,2,5 

1030 CLS #4 

1040 INK #4,2:AT #4,0,11:PRINT #4;"FREDERIC HUYNH" 

1050 INK #4,1:AT #4,3,14:PRINT #4; "PRESENTE" 

1060 INK #4,3:CSIZE #4,3,1:AT #4,3,11:PRINT #4; "SIMON" :CSIZE #4,2,0:INK #4,4 
1070 AT #4,10,0:PRINT #4;" SIMON est un jeu de memoire , vousallez voir apparai 
tre a l'ecran une suite de carres colores . A vous de les retrouver dans le bon 
ordre ." 

1080 PAUSE 50 

1090 INK #0,6:message "Copyright 1985 HUYNH SOFTWARE . Pressez <ENTER> pour cont 
inuer. ":INK #0,7 

1100 IF KEYROW(1)<>1 THEN GO TO 1100 

1110 CLS 

1120 AT #0,1,0:INPUT #0; "Quel est votre nom ? (max 9) > “inom$ 

1130 IF nom OR LEN(nom$) >9 THEN GO TO 1120 

1140 INPUT#0; Choisissez le niveau de diff 


iculte del a 3 (1 etant le plus dur) 
1150 IF dif‘1 OR dif 
1160 INPUT #0;" 

(Repondezpar o(ui) ou n(on) » > 
1170 
1180 





“dif 
>3 THEN GO TO 1140 

Desirez vous avoir le son ? 
2$ 








IF z$-"oui" OR 78 
CLOSE #4 


o" THEN b=-1 


1280 


1300 PAPER 
1320 
1330 
1340 
1350 
1360 
1370 
1380 





1190 END DEFine initialisation 
1200 DEFine PROCedure var 

1210 best$-"PERSONNE" :meil-0:score-0:comp-=0:DIM xX(8):DIM h(100):DIM so(100):er-0 
DIM sound(8):b=0 

1220 RESTORE 1260 

1230 FOR i-=1 TO 7 

1240 READ x(i),sound(i) 

1250 END FOR i 

1260 DATA 2,33,7,28,12,24,17,22,22,18,27,15,32,12 

1270 END DEFine var 

DEFine PROCedure page 
1290 CLS:CLS #0 

AT 0,12: PRINT 
1310 FOR i-1 TO 7 

PAPER i 

AT 2,XCi)D:PRINT ®  " 
AT 3,XCiD:PRINT " 
AT 4,XCi):PRINT 
PAPER O:INK 7:AT 3,XCi)+1:PRINT i 

END FOR i 

PAPER O0 

1390 m$-meil:AT #0,0,1:PRINT #O0:"MEILLEUR":AT #0,1,2:PRINT #0,"SCORE":AT #0,2,4- 
CLEN(mS)/2): PRINT #0;:m$ 

1400 INK #0,5:AT #0,0,10:PRINT #0;"MEILLEUR":AT #0,1,11:PRINT #0;"JOUEUR":AT #0, 
2,14-(LEN(best$)/2):PRINT #0;best$ 

1410 INK #0,3:AT #0,0,20:PRINT #0;"JOUEUR 


“xxx SIMON xxx" 





T #0,2,23-(LEN(nom$)/2):PRINT #0; nom 








$ 

1420 s$-score:INK #0,4:AT #0,0.30:PRINT #0; "SCORE" :AT #0,2,32-(LEN(S$)/2) : PRINT 
#0;s$ 

1430 INK #0,7 

1440 END DEFine page 

1450 DEFine PROCedure jeu 

1460 REPeat boucle 

1470 CSIZE 3,1:INK 5:FLASH 1:AT 6,8:PRINT "REGARDEZ BIEN":CS1ZE 2,0:FLASH O:INK 
7 
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1480 PAUSE 100 

1490 CSIZE 3,1:AT 6,8:PRINT * ":CSIZE 2,0 
1500 comp-comp-1 

1510 h(comp)=RND (1 TO 7) 

1520 FOR i=1 TO comp 

1530 ecran h(i) 

1540 END FOR i 

1550 FOR i=1 TO comp 

1560 AT 17,0:INPUT 
1570 AT 17,0:PRINT * 

1580 IF so(i)7 OR so(i)‘1 THEN GO TO 1560 
1590 ecran soti) 

1600 END FOR i 

1610 CSIZE 3,1:1INK 2:AT 6,8:PRINT “VOS SOLUTIONS":CSIZE 2,0:INK 7 
1620 PAUSE 50 

1630 FOR i-1 TO comp 

1640 ecran so(i) 

1650 END FOR i 

1660 CSIZE 3,1:INK 6:AT 6,6:PRINT “VOICI LES REPONSES" :CSIZE 2, 
1670 PAUSE 50 

1680 FOR i=1 TO comp 

1690 ecran h(i) 

1700 1F so(i)<-h(i) THEN er-er-1 

1710 END FOR i 

1720 IF er::0 THEN EXIT boucle 

1730 score-score+comp 

1740 page:PAUSE 100 

1750 END REPeat boucle 

1760 page 

1770 mes$-" Vous avez perdu au bout de “&comp&" essais ; avec “&er&” erreurs) V 
otre score est de : “&score8&” points. Pressez <ENTER> pour continuer" 

1780 message mes$ 

1790 END DEFine jeu 

1800 DEFine PROCedure ecran (ec) 

1810 PAPER ec:AT 8,X(eC):PRINT “ “:AT 9,x(eC):PRINT * 





“Quelle etait la couleur du bloc no"æ&ig&”" * 




















AT 10,x(eC):PRINT 


1820 IF b-0 THEN PAUSE 5xdif :GO TO 1840 
1830 BEEP (5000«dif),sound(ec) 
1840 PAPER O:AT 8,X(eC):PRINT * 
1850 END DEFine ecran 

1860 DEFine PROCedure message (a$) 
1870 CSIZE #0,3,1 

1880 FOR i-=1 TO LEN(a$) 

1890 AT #0,0,27:PRINT #0:a$(i) 
1900 PAN #0;-16 

1910 IF KEYROW(1):1 THEN CSIZE #0,2,0:CLS #0:RETurn 

1920 PAUSE 3 

1930 END FOR i 

1940 GO TO 1880 

1950 END DEFine message 

1960 DEFine PROCedure fin 

1970 IF scorermeil THEN 

1980 message "Vous avez battu le record de “&meil&” points etabli par "&best$&" 
felicitations ! Vous etes le nouveau detenteur du record . Pressez ‘ENTER? pour 
continuer D 

1990 meil-score:best$-nom$ 

2000 ELSE message best$&" garde toujours son record de "&meil&” points , a ce jo 
ur il reste imbattu . Pressez <ENTER> pour continuer # 

2010 END IF 

2020 message “Desirez vous rejouer ? Pressez «ENTER puis entrez votre reponse S 
vp." 

2030 AT 18,0:INPUT “>";a$ 

2040 THEN GO TO 2030 

2050 "oui OR a$-"o” THEN RETUurn 

2060 CLS #0:CLS #1:CLS #2 

2070 PRINT #0;"(c) 1985 Frederic Huynh* 

2080 STOP 

2090 END DEFine fin 

10000 REMark xxxxxxxxxxxxexxtaxxexeexx xxx XXe ER RARE RER RARE ER ERR EURE 
10010 DELETE mdv1_Simon 

10020 SAVE mdvl_Simon 

10030 DIR mdvi_ 

10040 STOP 

10050 PAUSE 10000 

10060 BAUD 1200 

10070 OPEN #5,ser1c 

10080 LIST #5 

10090 CLOSE #5 

10100 STOP 


10110 REMarkK *xxx"xxxxxxxxe axe xxx XX XX XX RER X RARE LA LAN REX LUE RARE RENE RE 
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T 9,X(@C):PRINT “  ":AT 10,X(eC):PRINT " 




















BRICOLAGE 





16 K RAM dans le ZX81 


Pour les fanas du fer à déssouder (débutants s'abstenir) voici de quoi 
intégrer les 16 k RAM dans le boitier du ZX-81 pour 400 à 600 F. 

Fini les extensions branlantes qui plantent le ZX, c'est bien plus 
esthétique, et en prime votre ZX gonflé ne consomme que 0,3 A. 

Le décodage est identique à l'extension 16K Sinclair, et si vous en 
branchez quand même une à votre ZX modifié, vous neutralisez la RAM 
interne (RAMOS = 1) donc pas de casse. 





Matériel 





Deux RAM CMOS 8k x 8bits HITACHI 6264 P- 
15 un 74 LS 00. 






RAMCS (GE) 
A10 


RAMCS (CE) 
D4 

D3 

D7 

D2 

D6 

Fig 1 Brochage RAM sur le ZX81 
(Pattes repliées encadrées) 








Préparation du circuit imprimé 
ZX81 





Enlever au fer à déssouder (manuel ou auto.) la 
RAM d'origine qui est composée soit d'un boi- 
tier 4118 où de deux 2114. Procéder lentement 
et patiemment, sans forcer (normalement la 
RAM déssoudée doit encore fonctionner). 
Déboucher les 28 trous à l'emplacement mar- 
qué IC4, ainsi que les trous n° 9 (OV) et n° 18 
(+5V) de IC4b. 
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Préparation des R.A.M. 





Sur chaque RAM 6264 relever les pattes n°5 2, 
23 et 26. 

Placer les deux RAM l'une au dessus de l'autre 
et souder les pattes superposées (sauf les 
ns 26, 23 et 2). 

Préparer le contact entre les deux pattes n° 2 et 
les deux pattes n° 23, en les laissant à l’horizon- 
LE Ne pas relier les deux pattes n° 26 ensem- 
bles. 


pattes repliées 


n°23 l ù 
n°26 — n°2 


N T 


souder (25 pattes) 


fig 2 Préparation des RAMs 





Montage 





Monter l'ensemble des deux RAM surperposées 
sur le circuit imprimé et souder. Les pattes n° 2, 
28 et 26 repliées à l'horizontale ne sont bien sûr 
pas soudées au circuit imprimé ni en contact. 
Relier les deux pattes n° 2 ensemble puis à la 
cathode de la diode Di (A11) qui est au-dessus 
du connecteur clavier. Relier de même les deux 
pattes n° 23 ensemble, puis à la cathode de la 
diode D3 (A12). 

Placer le 74LS00, pattes en l'air, au-dessus de 
l'emplacement de IC4b (à droite de IC4). (On 
peut le coller si on veut). Relier la patte n° 7 du 
74LS00 au trou n° 9 de IC4b (OV), relier la patte 
n° 14 du 74LS00 au trou n° 18 de IC4b (+5V), 
(attention le 74LS00 est vu de dessous :). 


























e 
| 
3 
d IC4 
b 
E | [connecteur clavie} 
fig 3 74LS00 et connexions aux diodes 
! À 
n RAA re 
Relier la cathode de D5 (A13) à une porte du 3 À À 
74LS00 (par exemple pattes n° 9 et 10 ensem- 
ble) puis à l’une des broches n° 26 (CE) de l’une T 
des RAM. 
Relier la sortie de la porte du 74LS00 (broche : 
n° 8 par exemple) à l'autre broche n° 26 de l'au- Vers le clavier 
tre RAM. 
fig 4 Implantation du circuit 
C'est fini et ça marche... il n'y a plus qu'à déco- innéiae 


rer votre ZX81 d'une belle inscription “16K". 


F. BOSSERT 








SPECIALISTE NATIONAL DU DEPANNAGE PAR CORRESPONDANCE 


Q 0 
micromanie 8, avenue des Thébaudières - 44800 ST HERBLAIN — Tél. : (40) 63 07 22 





3 JOURS 


C'EST LE TEMPS QU'IL NOUS FAUT POUR DEPANNER VOTRE MATERIEL 





SINCLAIR — COMMODURE — ORIC — THOMSON — SEIKOSHA — AMSTRAD 
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LANGAGES 





Un Pascal pour QL : 
Pascal computer one 


Une implantation réussie de ce langage de haut niveau, exploitant au 
mieux les possibilités offertes par le QL. 

De nombreux langages de programmation sont disponibles sur le QL. 
Celui-ci est, en effet, une machine conçue pour programmer. Langage 
structure avec vitesse d'exécution élevée, recursivite et fonctions 
prédéfinies, le PASCAL s'impose comme un outil de développement. 
Sachant que le QL est doté d’un processeur 32 bits (68008 de 
MOTOROLA) et d’un système d'exploitation rapide pour les calculs 
scientifiques, on entrevoit aisément l'intérêt de l’utilisation d’un tel 


langage sur une machine de ce type. 


Le PASCAL COMPUTER ONE est vendu sous la 
forme d'une micro-cartouche accompagnée 
d'une notice claire et bien présentée, mais hélas 
dans la langue de nos voisins d'outre-Manche. 
La mise en œuvre de ce logiciel est remarquable 
par sa simplicité : 


La mise en œuvre de ce logiciel 
est remarquable par sa 
simplicité : 





en effet l'utilisateur est toujours guidé par des 
menus places dans des fenêtres adéquates. 

Le menu principal propose plusieurs choix : 
« EDIT » l'édition de texte, « COMPILE » la 
compilation, « RUN » l'exécution, « DIREC- 
TORY » la liste des segments, « DELETE » l’écra- 
sement d'un segment, « COPY » la copie, 
« FORMAT » le formatage d'une micro- 
cartouche, « MAKE JOB » la compilation en 
code machine, et « EXIT » le retour au basic. 
Après cette brève description, regardons en dé- 
tail les différentes commandes proposées : 





EDIT, un éditeur performant 





Le PASCAL est un langage très strict ; la moin- 
dre erreur de syntaxe oblige à répéter le proces- 
sus édition-compilation, en effet, cet éditeur ne 
permet de repérer les erreurs de syntaxe lors du 
retour chariot. Mais, comparable a un petit trai- 
tement de texte, il autorise le coupe-colle, main- 
tenant classique, ainsi que la recherche d'une 
chaine de caractères. 

Le compilateur est conforme au standard I.S.O. 
à quatre exeptions près : 
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— Les procédures et les fonctions ne peuvent 
être passées comme paramètres. 

— Les entrées-sorties ont été modifiées afin 
d'utiliser celles du QL de manière optimale. 

— On ne peut pas employer l'indice de boucle 
dans les procédures appelées (il faut une varia- 
ble intermédiaire). 

— Les GOTOs ne permettent pas de saut à l'ex- 
térieur des corps de procédures ou de fonctions. 
En revanche, les ajouts au standard permettent 
de tirer profit des possibilités graphiques et so- 
nores du QL : 


procédures: point grafil scale  ellipse. 
procédures : beep et bell 


L'horloge interne n'a pas été oubliée, trois pro- 
cédures, ou fonctions lui sont consacrées : « set- 
clock », « adjustclock », « readclock ». 

D'autres procédures et fonctions, telles « peek », 
« peekw », « peekl », et autres pokes, complè- 
tent les accès mémoire. 





La production 
du programme-objet 





Le point fort de ce PASCAL c'est « MAKE JOB » 
ou comment produire du code machine. 

Si la programmation et la mise au point s'effec- 
tuent en PASCAL pseudo-compilé, ilisation 
proprement dite du programme doit être indé- 
pendante de l'environnement PASCAL. Cette 
option transforme (compile) un segment 
« pcode » en un segment contenant du code 
machine exécutable (par EXEC et CALL). 

Cette possibilité, banale dans un compilateur 
traditionnel, trouve ici son importance dans le 
milieu multitâche du QDOS. 

La configuration PASCAL + QL obtenue, plaira 
à tous les étudiants et programmeurs appréciant 
ce langage, tant du point de vue prix, que de 
celui de la qualité. 





Liste des procédures et fonctions standards : 


ARCTAN CHR 
O ORD 
SUCC 


PAGE READ 
REWRITE WRITELN 





EOF EXP 
ROUND SIN 
GET NEW 
DISPOSE RESET 





Franck-Olivier Lelaidier Augustin Garcia 





Configuration Brother M 1009 


SWw1 


Ssw2 


Cette imprimante est vendue avec une interface 
spéciale pour le QL fabriquée par EPSON. Pour 
l'utilisateur non éclairé il n'est pas toujours aisé 
de comprendre les options de configuration. 
Voici les options retenues par l'importateur : une 
description des deux boites de commutation 
vous permettra de configurer l'imprimante à vo- 
tre gré. 


8 7 6 5 4 3 2 1 
x X : x 
X X X X X 
ON 


Vue supérieur de l’avant de l'appareil. 















































8 7 6 5 4 3 2 1 
XIx [x IX x 
x I [ X X 
ON 


Sswi 

1 Contrôle de parité SANS oN 
2 X-ON/X-OFF NON TRANSMIS OFF 
8 Vitesse de transmission 9600 bauds ON 
4 Vitesse de transmission 9600 bauds ON 
$ Vitesse de transmission 9600 bauds ON 
6 Parité IMPAIRE ON 
7 Niveau de code de caractère bits OFF 
8 Mode d'interface SERIE OFF 
Sw2 

1 Longueur de papier 12" OFF 
2 Sélection de jeux de caractères FRANÇAIS ON 
étrangers 

3 Sélection de jeux de caractères | FRANÇAIS on 
étrangers 

4 Sélection du type de zéro BARRE OFF 
5 Saut de pertoration INVALIDE OFF 
Autres feux de caractères NON OFF 
étranger 

7CR AUTO FEED XT) SANS LF OFF 
BSLC NON FIXE ON 





Trucs à brac 





Plombage en or. 





Choquantes, n'est-ce pas, les premières lignes 
de ce programmes de ZX 81 ? 

S'il s'agissait d'un programme de Spectrum, on 
comprendrait la présence des instructions READ 
et DATA, mais il faudrait se poser des questions 
quant aux trois lettres précédant le signe dollar 
dans des noms de chaînes... 

L'éditeur de lignes des machines Sinclair est ré- 
puté intransigeant sur le plan de la syntaxe et 
pourtant ! 


En fait, ces lignes ont d'abord été écrites sous la 
forme de REM, à l'intérieur desquelles on sait 
qu'il est possible de loger à peu près n'importe 
quoi : 20 REM READ MOTS (frappé lette à let- 


















a O8 Fs=i s 
29 RERD _HOTS 
3 PRINT MOTS 
a ATA_UMOTI", HOTTE", "MOTAT, 
Ha OTS"* 
se F 
3188 STO 
S209 RÉ RECHERCHE DE LIGNE 
3300 LET sses 
SS08 PRINT "NUMERO DE LIGNE 7’ 
3519 INPUT 
S39 CLs 
538 sOosus 9o72e 
4g IE AGNL THEN LET W 28 
Sa B<NL THEN SGTO 
5S NL QT REN Édro Sete 
eè SÉEK (us) F2SRIPEEK W 
so. +PEEK (H921 +2SS4PEEK 





RM 
RINT "LIGNE NO “ML; " Dù P 


_ 
9 PRINT LPPRESSE DU ";CHRS FE 
IW+4); "DE TETI 

3 PRINT AT Fe. siu 

S48 PRINT AT 1818: lééeur DE CET 

TE LIGNE." 








F6 REA cûByRronT 1004 
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SYSTÈMES 


tre). Ensuite, il a suffit de POKEr des 0 à la place 
des codes des mots-clé REM placés en tête des- 
lignes à « falsifier ». 

Pour ce faire, la partie de programme située 
après le STOP (que l'on peut appeler par un 
RUN 9200) est bien utile : elle trouve en effet 


l'adresse du caractère de tête (mot-clé) de n'im- 
porte quelle ligne ; il ne reste alors plus qu'à y 
poker ce que l'on veut, notamment ce fameux 
zéro. 


Bien sûr, la machine refusera tout net d'exécuter 
de telles lignes, mais sans pour autant se « plan- 
ter », ni à l'exécution, ni au listage. 


Par contre, si on « sort » une ligne de ce genre 
grâce à EDIT, il ne sera plus possible de la faire 
«remonter » dans le programme, sauf à lui « ren- 
dre son REM » au préalable. 

Mais, direz-vous, à quoi peut bien servir cette 
méthode ? 


D'abord, il s'agit d'une petite curiosité toujours 
distrayante à noter, et instructive à expliquer. 
Enfin, des applications peuvent être trouvées 
dans le domaine du « plombage » des program- 
mes : remplaçons quelques lignes bien choisies 
d'un logiciel quelconque par des lignes ainsi tru- 
quées (sans pour autant introduire d'erreurs de 
syntaxe), et l'exécution deviendra impossible, au 
besoin partiellement : la machine s'arrêtera de 
façon apparemment inexplicable sur un compte- 
rendu d'erreur tout-à-fait farfelu (en général un 
C). 


Le « déplombage » consiste tout simplement en 
une réécriture de la ligne ou des lignes en cause, 
que l'on peut repérer grâce à leur décalage (dis- 
cret !) d'un espace vers la droite. 

Eventuelleñent, ce décalage pourrait être sup- 
primé, mais il ne ferait alors pas bon oublier 
quelles lignes ont été « piégées » ! 


Patrick GUEULLE 


5 cassettes de jeu 





CRYSTAL 5 (ZX 81 16K) AGB 






Transportés sur la planète Crystal 5, récemment 
découverte, vous devez découvrir la raison de la 
mystérieuse disparition de 12 explorateurs. 

Jeu décomposé en trois parties sur la cassette, 
plus une introduction vocale à la mise en œuvre 
du jeu, innovation intéressante. 


B.C. 
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Une pile qui ne s’use pas si l’on 
s’en sert. 





Sur la demande de plusieurs lecteurs. C'est bien 
volontiers que je donne ci-après quelques éclair- 
cissements sur le transfert d'un nombre de la pi- 
le calculateur dans une variable du programme 
Basic. Prenons un exemple qui réalise 
64 x 200: 

Si vous faites POKE 32002,1 qui charge BC 
avec la valeur 320, PRINT USR 32000 vous affi- 
che 64000. 

Si vous faites POKE 32002,2 qui charge BC 
avec la valeur 576, PRINT USR 32000 vous affi- 
che 0. 

La valeur exacte, 115200, est trop grande pour 
être tenue dans BC qui est le retour du USR. 
Effectuons le transfert de la pile calculateur vers 
une variable Basic à l'aide d'un programme en 
C.M.: 


à la place de CALL DEPILE, ajoutons ceci : 
32014 ED,5B,4B,5C LD DE, (VARS) ; (23627) 
32018 13 INC DE ; fier octet = lettre x 

32019 2A,65,5C LD HL, (STKEND) ; (23653) 
32022 01,05,00 LD BC,5 

32025 A7 AND A; c = 0 

32026 ED,42 SBC HL,BC 

32028 ED,BO LDIR 

32030 C9 RET 

Entrez le Basic suivant ; 

1LETx=0 

10 RANDOMIZE USR 32000 

20 PRINT x 

999 STOP 

faites RUN, vous avez 115200. 

I! faut que la variable Basic utilisée soit déclarée 
dans un programme Basic au début de celui-ci 
pour que cette variable prenne la 1" position de 
la zone variables quand on exécute le program- 
me. Il suffira alors de transférer 5 octets de la 
zone STKEND dans la zone VARS (le 1° octet 
de cette zone contient x puisque'on a déclaré 
une variable d'une lettre x). 

M. HENROT 











X-TRICATOR (ZX 81) 
Software Farm 





Mission très dangereuse : récupérer vos camara- 
des égarés sur la planète Alien avant qu'ils ne 
soient faits prisonniers par les habitants de ce 
monde hostile. 

Jeu en haute résolution graphique, sans modifi- 
cation du ZX 81 version normale : c'est-là le 
principal intérêt de ce jeu qui, pour le reste, 
manque un peu d'originalité et se plante parfois 
(introduction du nom du joueur). 


B.C. 





Alien 
ULTIMATE (G.B.) 
Spectrum 48 K 





Dans une lointaine galaxie, sur une lointaine pla- 
nète Ainsi commence la notice de ce pro- 
gramme distribué par Ultimate, une marque qui 
a déjà produit de bons jeux d'action pour le 
Spectrum. Disons franchement que celui-ci est 
presque excellent : il peut même vous rendre fou 
à lier et vous faire envoyer à l'asile d'aliénés ! 
Mais trêve de jeux de mots, et voyons le principe 
du jeu. Vous êtes un petit robot, charmant, 
Alien, ultra-sophistiqué (rien à avoir avec le mé- 
chant humanoïde du film d'épouvante spatiale). 
Alien a une mission : sauver la gent humaine en 
s'occupant des corps cryogénisés (conservés 
gelés dans de l'azote liquide). La base du pro- 
gramme, qui est presque un jeu d'aventures, est 
originale, un peu morbide certes. Mais avant 
tout, les graphismes et les sons sont remarqua- 
bles : trois dimensions, hautes définitions, mélo- 
dies. Mais hélas, pour que le jeu fût excellent, il 
aurait fallu que la notice (un superbe livret de six 
pages !) soit rédigée dans la langue de Balzac et 
non dans celle de Shakespeare. Comme l'aven- 
ture est complexe, on ne comprend donc pas 
ou ce qui vous arrive et ce que vous devez 
aire... 


RE CA 





STOPPEZ LES MISSILES 
(Spectrum) CP Software- 
Semaphore Logiciels 





Ce logiciel est le premier jeu d'aventure graphi- 
que, pacifiste, non-violent, non-sexiste et satiri- 
que. Eh oui, pour une fois vous n'irez pas dé- 
truire une quelconque armada de l'espace, non, 
vous êtes Annie, une gentille pacifiste qui veut 
empêcher le méchant président Raygux (il ne 
vous rappelle personne ?) de déclencher la 
guerre atomique. Pour prévenir l'apocalypse An- 
nie envoie des bisous aux policiers et aux sol- 
dats : en revanche, son charme n'a aucun effet 
sur la Dame de fer (de quel pays vient le Spec- 
trum déjà ?) et un journaliste vient compliquer le 
tout. 

Ce jeu, à déconseiller formellement aux militaires 
et militaristes, est plutôt un jeu d'action. Le joys- 
tick (Kempston) est sinon indispensable, du 
moins bien utile. Les graphismes sont char- 
mants.. Oui vraiment, nous avons bien aimé ce 
jeu plein de bons sentiments qui est assez dis- 
trayant. 


J.-C-A. 


——————————————— 





48K SINCLAIR ZX SPECTRUM 


HV VUSNTE 


ds 8h BA 
FLAUTHE 


MAUDITE »x 2x 5PECTRUN «0, 


L'île maudite 
de LORICIELS 
Spectrum 48 K 





L'île est peut-être maudite, en tous cas le jeu ne 
le sera pas par nous ! Ce programme est un jeu 
d'aventure, en français. 

Vous n'aurez donc pas besoin d'un bon diction- 
naire où d'une licence d'anglais pour errer dans 
l'île maudite, en évitant les multiples obstacles 
(par exemple les requins dégénérés) glissés par 
un programmeur vicieux qui veut à toute force 
vous empêcher de rejoindre le sous-marin qui 
doit vous emmener dans un paisible port. À cha- 
que tableau apparaît un graphisme simple mais 
utile. Vous « dialoguer » avec l'ordinateur en 
vous aidant d'un vocabulaire donné. 

Nous avons trouvé ce programme très attrayant. 
Nous regrettons toutefois que Loriciels ne livre 
pas le vocabulaire sur la notice (le recopier, si on 
n'a pas d'imprimante, c'est long), et qu'il n'y ait 
pas de plan général accessible à tout moment 
pour savoir sa position. En revanche, nous ap- 
précisions grandement le graphisme, l'humour, 
le suspense du jeu, l'emballage « livre » pratique 
et élégant, et aussi la possibilité de jouer tous 
dans la même équipe en se relayant, car les par- 
ties peuvent être longues. 


no CA. 
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Logo compilé 


Le LOGO a un charme particulier, 
surtout auprès des jeunes Une tortue qui va plus vite 
programmeurs, mais pourquoi faut- qu'un lièvre 

il que la fameuse tortue se promène 
toujours aussi lentement, sauf dans 
les réalisations complexes et 
fermées ? 

Voici justement un LOGO rapide, SPIRALE 8 
car les différentes procédures sont 

compliées, et ouvert, car 

l'utilisateur peut ajouter de 

nouvelles routines-mouvements. Le 

tout rentre parfaitement dans les 

16K d’un ZX81. 








DIM P$(29,2,8) 

DIM P(29,6) 

Entrer les valeurs directement, par exemple : 
LET P$ (1,1) + “A”, etc. 











TABLEAU P$ 

1 2 
1 A AVANCE 
2 D DROITE S LES Sa 
3 G GAUCHE #8 - a œ 
4 M MONTRE + REPETE @M 
5 C CACHE * REPETE 24 

+ AVANCE EN 

6 H HOME + GAUCHE g2 
à à JR EN 3 BÉNNGES en 

< AUGMENTE 
9 > DIMINUE ; PIN REPE 

















TABLEAU P 
1 2 3 4 5 6 
L 135 64 134 64 
2 162 65 163 65 
3 148 65 149 65 
4 134 65 
5 141 65 
6 92 65 
A 187 65 188 65 194 65 
8 107 65 108 65 
9 114 65 115 65 
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Créer tout d'abord deux REM, une première 
contenant 327 caractères et une seconde 
contenant 1024 caractères. La première REM 
contiendra les instructions de base du langage, 
la seconde contiendra les instructions crées par 
l'utilisateur. 

Vérifier que « PEEK 16842 » donne bien « 118 » 
et que « PEEK 17873 » renvoie « 118 ». 

Entrer ensuite les 327 octets constituant les rou- 
tines de base dans la REM 1. La liste des codes 
est donnée en annexe. 

Entrer le programme BASIC. Pour fonctionner il 
manque à Logo les tables suivantes qui doivent 
être entrées à la main : 

Lancer ensuite GOTO 11 afin de sauver l'ensem- 
ble du programme et des données sur cassette, 
Le programme ne devra jamais être lancé par un 
RUN qui détruirait les deux tables P et P$. En 
cas de « plantage » relancer LOGO par un 
GOTO 100. 





Les mouvements de la tortue 





Dès le lancement du programme on doit obtenir 
un chevron en vidéo inversée en haut à gauche 

















86; "AT 1:29; 
28; PEEK 16515 
28; PÉEK 16514 
25; PEER 16516 
“_THEN GOTO, 189 
THEN GOTO 11@ 





METEO Le 


54] 

#2: THEN STOP 

THEN GOTO 198 

T GOTO 6008 
GOTO 5920 
GOTO 1000 
PRINT AT 2,8 
(7° 24 


HI 
FOR _ÏÎ=1 TO K-1 
IF Ag=P#(I,1,1) THEN GOTO 2 


NEXT 
eoTo 





iga 
PRINT P#(I 

FE Doria » 36 FE jè Té8ro see 
PRINT AT 

INPUT N 

BOKE (PCT, 2) +266 #P (I 4) QN 
IF _P(I,6)20 THEN GOTO 308 
BRENT gr 8.10 


NE 
SURE (P{L,5) +2S64P (1,633 ,M 
PRINT AT 6,0", 


LET R=USR (P(I,1)+256#P/1,2 


"UM LOGO ZX 51 (CIP.A 
(17872-PC) /1024;" KOC 


“VOULEZ-VOUS :"; TAB 27 


“CREER UNE NOUVELLE 
*CORRIGER P#iK-1,2 


HEN GOTO 1075 
TRHÈNT80To 188 









IF INKEY 


DIM 08(62,16) 
RAKSSSPHEN coTO 9900 


de l'écran et trois nombres en haut à droite qui 
sont respectivement : la position de la tortue en 
abscisse, en ordonnée et son angle par rapport 
à l'horizontale (en multiple de 45 degrés). 

Toutes les instructions sont entrées par des 
pressions de touches : 

— instruction du groupe 1 
tortue. 

FA" avance de n points 

: tourne à gauche de n fois 45 degrés 

: tourne à droite de n fois 45 degrés 

He : les déplacements de la tortue laissent une 
trace sur l'écran 


: mouvements de la 





“C” : les déplacements de la tortue deviennent 
invisibles 

“V": va-en n,m sans laisser de trace 

“H": retourne en 0,0 sans laisser de trace. 


instructions du groupe 2 

" : affiche la plaie mémoire disponible 

: nettoie l'écran 

Ha ‘copie l'écran sur l'imprimante 

“stopo” : retour au basic 

“B" : bibliothèque : affiche la liste de toutes les 
routines existante ainqi que la touche permettait 
de les appeler. 

“E" : efface les routines à partir de cette spéci- 
fiée par l'utilisateur 

“P” ; passage en mode programme. 

Toutes ces instructions sont utilisables en mode 
direct dès l'apparition du chevron. 





1228 CLS 
PRINT 


"NOM DE LA PROCEDLIRE 
P£&tK,2) 

FE L'DrPEUNe 2 
ART 8:80: "TOUCHE CORRES 


u 
= 
#{I,1)2 THEN GOT 





SREMXRHI 


SOU AN + 





177 Goto 1180 
S PRINT AT 9,2; "OS: PUR, 2) 


CA 
198 LEFT Kekel 
268 PRINT “NOHNEGE DE PARRMETRES 


FF o$ti+1, 1)6>"#" THEN GOTO 


ge, 
33 INT AT 31,0; 08(I#2,143;" 
Siieres 23 72, 16) 


El 

hi Isr+1 

Fi IF 1231 ŸTHEN PRINT AT 21,29 
F _Ize1 DEN GOTO 1240 


ps 
1836 GOTO,_ 1281: 
1849 FOR 1=1 TO 7S 
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IF @#{I,1) <>" 
IF O$(I,1) <>" 


THEN LET SP 
THEN GOTO 3 





















IF PP=:20 ÎTHEN CLS 
IF PT=261 THEN GOTO 990 
5F Pr=80 THEN LET PAGESPAGE 


LET SA {ET later 
HEN, LET ,PP=0 





“; PAGE 
LULHEN GOTO 1877 


KEXEN copy 

THEN GOTO 1268 
CODÉ=CODE A$ 

12 OR CODE-113 THE 


XF 
3 Cet. 
1285 IF CODE=1 
N_GOTO 19373 

3287 IF SODE=114 OR CODE=115 THE 


N_GOTO 
1280 Ir CODE=117 THEN GOTO 1400 
IF A$="a" THEN GOTO _ 15808 
IF O$(PT,2) 42" “ THEN GOTO 


IF _A#+>"R"* THEN GOTO 15 
PRINT AT PR42; “"REPETE 
PRINT * à 

INPUT US$ 

130S IF, (U#="M" AND P(K-1,6) =@) 
SR QUSSCN" AND P(K-1,4) =0) THEN 


IF LEN U$=1 THEN LET U$="o0" 


PRINT AT _PP,11; sy. 

LET SgtET 18 TO 13) =u$ 
1311 LET OS$S(PT,2)="R" 

LET O$(PT,S TO 1@) ="REPETE 





TO K-2 
=P#(I,1,1) THEN GOT 


N LET O${PT,S3 
PRINT AT PP, 
LET O#1(PT,2) 


GOTO 1368 
LET O9#(PT,2 


GOTo 1500 











$z= 
éoT0 "1297 
@ LET OS(PT,2)=A8 
4 LET O$(PT,3 TO 10) Pa Ce) 


134 

134 

1342 PRINT AT ÉP,2; 08 (PT 

1345 

1347 FF PVT,8r=-0 THEN LET NBP=1 
1389 If P(T/ 420 THEN LET NEP=û 
1353 G=i Ti 

1388 PRINT AT | PP) 8+3%6; “= 

1382 INPUT UE 

1358 IF, (Us="M" AND P(K-1,6) =) 
BR tug= "NT AND PN217 4) 208$ TAEN 
SOTO 999 

1363 IF LEN Ug=1 THEN LET Ug="o" 


+ 
1364 PRINT AT _PP,58+32G; Li 
1365 LET O8(PT, (+320) 


Ghisus 
1367 NEXT G 
LET SP=SP+1 


110+3x% 


LET 
GOTG 128 
1373 IF PP=0 BND _CODE=112 OR 
S8 ANS CODES119 OR PP=20 AND EL 
HF THEN _GOTO 1277 

74 LET PTaPT+(CODE=1191 - CODE = 


52 
137% LET PP1=P) 
1970 LET PP2PP+ (CODE= 113) - (CODE= 


1377 GOTO_ 126! 

198@ IF tPAGES1 AND CODE=114) OR 
({PAGE+20) >5P AND CODE=115) THE 

N_GOTO 1277 

1383 LET PT2PT+20%(CODE=115) -205 
{CODE= 114) 

1384 IF PT>SP THEN LET PT: 

1386 CET PABE=PAGE+TÉODE SITE (0 

1 


4 
ET LIM=2@#INT (PT/20) +1 


CL 
FOR IsLIM TO L 
PRINT 9#(1,1); 





20 
39$(1,9 TO 


SU10 126 
PRINT AT PP,1;° 
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LET O$ (PT) = 





THEN GOTO 1593 
THEN GOTO 190 





Ê 
1509 LET PC=P(K-1,1)+256#P{K-1,2 
1516 FOR I=1 TO SP+ 
11 NT AT 3454 tue Perzre se 
Et 0,5; “J.EN SUIS 








ES 218 THEN GOTO 

gare eece 

GOTO 850: 

PORE PC, 201 

LET PC=PC+4 
N 6010 16e 

Xi IRe(O; 1,19 THEN GoT 

J 

RTL 2 4: 95 “INSTRUCTION 


PRINT 
INCONNUE LIGNE 
1579 GOTO 2535 





1618 LET NBP=2 
1820 IF Q#(r,18)=" " THEN LET NB 
3680 17 O#tr,19=" * THEN LET NP 

1648 FOR G=1 TO NBP 
1880, LET Assog(r, (9+0x0) TO (30+ 

# 
jséa 17 CODE Aal&1<38 THEN GOTO 
1699 1F Agÿ(2)="MH" THEN LET IND=S 

HEN LET_IND=3 
OR G$iT, are" 
K-21, IND) 
K=1, IND+1) 
J,1+2#0) 
V2 B4BXG} 
ÿ 
1+250ù 
2+250) 
C+4 URL AS 
,208 
#1,P(J,1) 
+8,P (J;2) 

2530 LET. PC=PC+9 
2840 NEXT I 
2860 POKE PC,28 
2360 POKE PC+1,PtU,8) 

2870 POKE PC+2,P(UJ;4) 

2580 POKE PC+9, 54 
2590 POKE PC+4  P(K-1, IND) 

2600 POKE PC+8; 33 
26198 POKE PC+6; (P (y, 8) +1) 

2620 POKE PC+7,P(J,4) 

2630 POKE PC+8:54 
2640 POKE PC4+9, P(K-1, IND+1) 

2880 POKE PC+10,205 
2660 POKE PC+11/PiJ,1) 

2870 POKE PC+12,P (0,2) 

2680 LET PC=PO+i: 

2690 eoTo 
5000 REM 
5001 LET 
S002 CLS 
5003 GOSUB 6000 
$004 LET B#="" 

095 PRINT AT 20,0; “INSTRUCTION 
À PARTIR DE LAGUÉLLEON NETTOIE 
5005 LET FL=@ 

5919 ANPUT 58 
5011 FOR A=l TO K-1 
S018 IF ps=Petñ,1,1) THEN GOTO 6 
S02a Nex 
Sese 0010 _Sceo 
5040 LET FL=A 
S109 EF A<1Q THEN GOTO 108 
5199 LET 
S110 LET PO=P(A, La +2s6xP (n,21 
SAil FOR T=K T0 
Ê113 LER PT) ed 
S113 HEXT I 
5115 LET FL=0 
$120 GaTo 100 
sacoBREN ESSERSRRERDESEEREEEEREE 
See CLS 













6802 PRINT AT _@,0; "PROCEDURE 
LETTRE UTILISEÉ" 
5283 PRINT ” 





FOR T=1i TO K-1 
PRINT P#(T, 2); TAB 15;P$(T, 4 


IF T<172#CUB THE 6032 
PRINT AT 21,0; ”* 
ZF_INKEYg= 6 fi 0 6o2e 
ë 
LET_CUB=CUB+1 
BEXT T 
IF FLei THEN RETURN 
BRINT AT 21,0; " 
ZPSINKEV =" TH 6037 
ST 1e5 
STOP 
REM 
ET =! +, 4 

Ss=218 THEN PRINT AT 








THEN GOTD E22e 

THEN GOTO 8119 
eC.2e 

POKE PC+1.UARL R$ 

LET PCePC+2 

SOSUB 93009 

LET S=8+1 

LET R(S,1)=M1 





POKE PC+2,P 
POKE _PC+5; 8: 
LET PCO=PC +4 
SET Oo 
REM 






ED IF S= 

IMPOSSIBLE À LR LIGNE 
8502 IF S=x0 THEN PAUSE 5@ 
3503 1e EDOTNEN GOTD 3222 





É38@ LET S=9-1 
#57 BOTO 
a REM 


LET HinPC-208s F 
3018 LET MScINT (FC/258, 

9B2P FRET. 

3900 REM 

FS21 PRIN +8; 

3408 PÔKE PC,ae@1 

3818 GOTO 108 

3998 LET Nail 

9991 IF P(K-1,4)7=@ THEN LET W=® 
MRADLERENT AT RL, GLPS KT, 2 ; 
SA QUE IN; PARÂMETRE (8) à 
2984 INPÜT 

9996 PRINT æi,e;", 


2998 IF Afz'R" THEN GOTO 1305 
3397 GOTO 1558 











16514.0,0.8,107,0.205,64,85,1 
18523,132,64,2,893,190,64,70,00 
16551:151,64,78,56,138,64,56,4e 
16559,64,406,176,11,58,198,64 
16546,33,190,64,70,33,131,64,7e 
16554,254,08,204,226,84,254,1;204 
16562,236,64,254,2,204,261,64 
16569,254,8,404,8,65,264,4,204 
16577,18,6S,254,5,204,34,65,254 
18565:6,404:26,65,254,7,204,49 
16595,66,33,196,64,112,43,181 
16500,64,115,33,134,64,94,29,115 
16608 ,194,14È2,64,201 183 421 es+ 
16615:69,124,800,12,201,108,121 
16682,254,63,124,2006,105, 126 254 
18629 ,43,124,200;12,4,201,108 
16656,126,254,45,124,200,4,2D1 
166493:109,120:264,45,124 208,109 
18650 ,121,254,0,144,200,4,19; 
16658,103,121,264,0,124, 200, 13 
188721802610 1637 220860 0242200 
; 55,184 
16670,260,165,141,264,0.124,200 


16686,5,18 i8i 184, 126,28416 184 


18788:119:901.82/0 82 438-802 
2 2 119 
233,1 419 132 


16738, 31,64 te} 54 
16745,116,201,36,257,66,52.,8,0 
16753,201,35,40,66,58,0,0,204 
16761,0,8,0,0,8,0,0,8,0,8,08,0 
18773,0,88,154,64,64,409,118 201 
18761:98,183,84,64,169,119,26 
16768,6,1,58,132,64,126.39, 102 
18796.64,119:205,64,85,201,8,4 
16804,58,192,64, 148, an; 12,84 
16811,116,205,64,65,201,0,6,0 
16819,0,0,0,8,08,6,0,0,62,240,33 
16830; 1$1,64,116,62,0,33, 150,64 
199297 118-201,126,61,118 


COMMANDEZ VOS LOGICIELS 
EN ANGLETERRE 


2500 TITRES DIFFÉRENTS 
pour AMSTRAD - BBC - COMMODORE 64 et16 - DRAGON 
ELECTRON - MSX - QL - SPECTRUM - VIC 20 et ZX81. 
dont 200 titres à 50 francs OU MOINS! 

















Offensive Q.L. 
Plus de 40 ivres et des dizaine iciels/progienels dont 
© Assembler Metacomco 480 F_ € Lisp Metacomco 720 F 
e Disassembler Hisoï . 250 Fe Graphi QL 420F 
© Hopper lJeud arcade). 180 F € BCPL Metacomco . 720 F 
e Lands of Havoc (aventure graphique avec 2000 ecrans) . … 250 F 
+ Cartouches Microdhive (en stock!) les 8 : 260 F -les 16: 500 F 
SPECTRUM 
600 logiciels et 30 livres techniques: 
AMSTRAD 


Copieur de programmes (K7) 
pour copies personnelles seulement 
Instructions en français 100 F 
RÈGLEMENT PAR MANDAT INTERNATIONAL (en francs) 
ou EUROCHÈQUE (en livres sterling). 

TOUS FRAIS DE PORT ET D'EMBALLAGE COMPRIS. 
ENVOI IMMÉDIAT DANS LE MONDE ENTIER. 
Instructions séparées en français fournies sur demande 
avec la plupart des JEUX 
RECEVEZ RÉGULIÈREMENT PENDANT 1 AN 
LES LISTES POUR VOTRE ORDINATEUR CONTRE 20 F 
(remboursables 1° commande). 

Vous pouvez réserver vos commandes en téléphonant 
à Didier, Jean-Pierre et Caroline 








DUCHET - 51 Saint George Road 
CHEPSTOW - NP6 SLA - ANGLETERRE 
Téléphone : +44 - 291 257 80 
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LANGAGES 














ee NOP 
ae NOP FBeo EP 86 
2e NOP 7€ LD AH 
68 LD L,E cé RET Ÿ 
ae NOP es PEC 8 
CD4841 CALL 4140 aD DEC C 
318448 LD BC,4084 ce RET 
Le (86) ,A 8? LD H,a 
218240 LD HL,46082 8 L6 À,8 
6 LD 8, (HL) FES CP & 
Siasse LS HL,4ass 7C LB AH 
She54o LD f; (4085) EE FETE 
323040 LD (4030) ,A 79 ED AC 
CDB206 CALL 0662 FESF CP 3 
SA6448 LD À, (4884) 7C 
218240 LD HL,4092 cé Berg 
48 Lo 8, (HD) se JET 
216540 LD HL,4080 ET Eee 
4Ë LB €; tHL) 88 ane © 
FECo ce 66 CEPPPT ET a € 
CCÉ4e CALL Z.40€4 ÉFE Pa +206! 
CCEC4S  CALL Z,40EC ess sp ne 
ÊÉSS £ê ÉB2? SLA à 
SSÉBdo GALL 7,407 See SCA A 
CC9341  CALL Z,4189 ee get 
Sc? gel CB9F SRL À 
SEaSe+i ÉALL 7,4122 ÉESr Sr à 
ceur SAC A 
CC2241 CALL Z,412a 213440 LE HL,4034 
CCIin41 ÉBLL.,Z-4118 La EDR 
GÉSi41 CALL Z,4192 re LD n,88 
gosse LR Mariés Joue LS actes 
218349 LD HL,4683 218348 LD DM 14083 
71 LD CHL),C ra LD (HU) ,R 
218640 LD HL,46086 218440 LD HL,4684 
SE LBCèg (AD) 22 NS) 
C 
73 LD tHL),E g1e042 
C28E40 JP _NZ,4608E 84 ER Nr 
cs RET ee NOP 
EH LD He Er NQP 
= v ce RET 
70 LD _A,H diidaz  LO HL,d4214 
cs RÉT 2 ce SEC AL) 
ec INC © ec NOP 
NH he # D 
79 Lo A:C 32 NUE 
FESF CP SF se NOP 
7€ LD R,H ae NOP 
cé RET À ee NOP 
87 LS Han ae NOP 
ÉÈ2S EP 26. ae CE 
70 LD A,H 22 Noe 
cs RET À 28 NOP 
ec INC © ee NOP 
94 INC 8 28 NOP 
cs fET ae NoP 
eds Sogee LS 
ÉÉze Ce 28 SÉeB © LR és 0 
és fers êg Fer Un 
# 
É RE Ses LE DLgéres 
67 LE H,n 77 LD _ CL) ,R 
7& Lé #8 ce RET 
FÉ2S SP 26 @1 LD 8,81 
Le Lo Pan 266440 LD À: (4084) 
67 LD H,A 218440 LD HL,4084 
73 Lg AC LD (HD) ,A 
ÉÉ0® gp 06 ÉD4041  CALL 4148 
7€ Lo A,H S RET. 
cs RET À 694 LD B,e4 
# des fie. His 
EE LB Ha ÉONSN RC TE 
79 Lo AC CD4B41 CALL 4148 
FÉSO EP dé c9 RET 
& ReT 2" 8e NO 
CE # LL 
87 LE H,e 88 NOP 
78 LD A,8 88 NOP 
ÉÉQS CP vé ge NOP 
& dre & D 
ës Er À #5. Le 
S7 LE H,A SE14 LD R,14 
78 LD A,B 215340 LD HL,40885 
FEGQ CP 09 727 LD CHE) ,A 
7C LO ÀA,H SEee LD A,0@ 
& fr pie. tee 
67 LO H,R LA Rêr ’ 
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Il est possible de créer d’autres 
routines qui, une fois compilées 
feront partie intégrante du 
langage. 





Pour cela il est nécessaire de passer en mode 
programme. 

Après passage en mode programme deux pos- 
sibilités sont offertes : 


— création d'une nouvelle procédure 
— correction de la dernière procédure entrée 


* création d'une nouvelle procédure 
donner : 


— le nom de la procédure 
— la touche associée 
— le nombre de paramètres (au maximum 2). 


Ces deux paramètres seront désignés par les 
lettres N par le premier et M par le second. 





La possibilité de générer des 
caractères graphiques 
mémorisables dans les instructions 
DATA constitue l’un des principaux 
attraits du Spectrum. Mais comme 
il est fastidieux de calculer la grille 
correspondante si l’on ne dispose 
pas d’un utilitaire efficace ! 
CARADATA est un programme 
graphique très complet qui sait 
aussi jouer d’une manière 
instructive avec les lignes REM et 
les lignes DATA, entre lesquelles il 
est souvent utile d'organiser des 
échanges. 


CARADATA permet de traiter 4 caractères si- 
multanément, 

— soit sur une grille 8 x 8 que l'on peut recopier 
par rotations et symétries 

— soit sur une grille 16 x 16 avec ici encore les 


Toutes les instructions de groupe 1 sont utilisa- 
bles pour créer de nouvelles procédures. En plus 
sont utilisables : 

— “R" répète n fois 

fin répète 








on peut imbriquer jusqu'à 16 “répète” 


— ">" augmente N ou M 
— “<" diminue N ou M 
— “." fin de la procédure 
Fonction propre à l'éditeur : 
- L monte d’une ligne 
“y” descend d’une ligne 
— “4” monte d'une page 
— “—” descend d'une page 
— “edit” efface la ligne courante 
— “3” retour direct au compilateur après cor- 
rection. 


Après compliateur chaque instruction peut être 
utilisée en appuyant sur la touche qui lui est as- 
sociée. 


Bonne logomachie 


Pierre AUBERT 





Caractères quatre à quatre 


possibilités de dessin simultané par symétrie. 
Après affectation à un caractère, les codes de 
celui-ci sont inscrits directement dans une ligne 
REM. 





C41029 
C+0D69 
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GRAPHIQUES 


Vous ne sauvegardez en fin de travail que les li- 
gnes DATA constitués à partir des REM précé- 
dentes. Elles pourrront ainsi, sans erreur de 
transcription, être réutilisées dans vos futurs 
programmes. 

La liste s'affiche dès chargement, à la ligne 1 qui 
servira de REM relais pour l'édition des DATA. 
La ligne 2 indique le mode d'emploi. 

Le programme se lance par RUN. Les grilles se 
tracent et le menu de la fig. 1 vous est proposé : 
Vous pouvez alors : 




















< Afficher ou rappeler dans le quadran de votre 
choix un caractère en vue de codage, d’adjonc- 
tions ou transformations. 

+ Dessiner (fig. 2) avec les touches curseur (5, 
6, 7, 8) complétées par : 

— CAP SHIFT dont l'appui simultané provoque 
un déplacement en diagonale décalé de 45 ° 
dans le sens des aiguilles d'une montre. 

— “9” (GRAPHIC) pour noircir les déplacements 
suivants 

— “0” (GRAPHIC) pour effacer les déplace- 
ments suivants 

— “1” pour se déplacer sans écrire ni effacer 

— “T" pour terminer et retour au menu. 


Pour tracer un dessin possédant une symétrie, 
horizontale, verticale, où par rapport à un point, 
on commence par déplacer le curseur sur l'axe 
de symétrie, ou le centre de symétrie, puis la 
touche “S” et le choix de cette symétrie (centre, 
horizontale, verticale) provoqueront automati- 
quement l'affichage du dessin et de son symétri- 
que en une seule passe. 

+ Faire des transformations à partir d'un carac- 
tère, par : 

— symétries verticales, horizontales, — rapport 
au centre, pour les 4 quadrants 

— rotations dans le sens trigo 

Cette dernière possibilité est intéressante car 
elle correspond au changement de direction 
d’un mobile donnant aussitôt son nouveau des- 
sin pour cette direction. 

+ Affecter le dessin à un caractère graphique. 

< Editer la ligne DATA correspondant à ce ca- 
ractère. Le caractère et les codes apparaissent 
dans la ligne 1 REM relais, il faut alors : 

— l'éditer 

— supprimer les ?, remplacer REM par DATA 

— la renuméroter pour l'inclure à sa convenance 
dans le programme. 

« Effacer les lignes inutiles pour ne conserver 
que les lignes DATA à sauvegarder. 
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EM 2777777776" ,0,0,16,82 
,128,88 71688 

2'REM Ne supprimez pas La Lig 

ne 1 qui comporte REM+36+% Eile 
Sér3 feutilisee.Il faut | editer 
“Supprimer Les ? ,remplacer: REM 
Par: DATA et {à fenumeroter ide 
10 3 1008 ou à partir de 70@e0!. 
Susprimez à La fin toutes les au 


tres Lignes 
D 





150 REM pour tracer Les caract 
it Leurs. DATA. 2ER#% 
QUERE 4/84 
ECTR 16 où 48k — 
ARR R EE 


REM MENU 
REM SUB EFracem 


REM TRansfert 
: REM variables 





ue] PABER si 


PRINT _AT_i,8 
F5 PAPER 7; 





276 FoR 1247 10 175 STEP, 8: PLO 
T G4,i: DROW 128,0: NEX REM 


El 
280 FOR i=63 TO 192 STEP 8; PLO 
T'i+1,46: DRAU @,127: NEXT i: RE 


O 21: PRINT AT _i,0 
(Gt+ii;CHRS (14S+i): NEXT 


i 
200 GO SUB EF 








8 
SS8 _IF T)@ EUR T<7 THEN G6Q SUS 
EF: GO TO T+12@ 
240 G0 TO 320 
Z08 REM SUB EFfacement 
2749 FOR i=i6 TO 21: PRINT ar de 


ETURN 

750) RE sde" TRansfert caractere 
dans grille 

AC RNA Y=Yd TO Yd+7: FOR X=Xd 
77@ IF POINT (X,Y) RUE PRINT À 
T me NL Sg VS RÉ £nRs 14. 


730 RETURN 

S@@ REM SUS Copie de La grille 

dans Les caracteres test 

819 PRINT AT 7,25; " “;AT 6,25; 
a: FRE Effacément préalable 

82@ FOR i=8 TO 2S:-FÜR Jj=@ TO 1 


6SG IF POINT (Exité,172-Brÿ} TH 
EN PLOT 192+i CE ME 

£4@ NEXT Jj: NEXT 

645 RETURN 

3902 ARE _REFICHER UN CARACTERE _E 





1218, ,INPUT ‘“Caractere a afficher 
ioèa INPUT “Dans quel quadrant?" 


AJ 
1850 GO SUE 

194 PRINT AT” L,C;AS$ 

1050 LET _Us="118-Ÿ": LET H$="x-1 
92": GO SUB TR: GO SUE Q© 


107@ REM SUB VO Lariables suivan 
t les quadrants 


106e 17 
26: LET 


LET 500 


3e1e 





EM Transt 































































1090 IF LET © Ga SU6 EF 

25: LET 3028 PRINT AT,17,8;"U=Symetrie à 
116@ IF LET c _axe vertical";AT 18,5; "H=Sumetr 
235: LET ie à axe hofizontal"/AT 19,8; "0Q= 
iii 1F LET © Sym/centre “;AT 20,3; “R=Rotation 
36: LET C 1/4 “;AT 21,8; "T=termine (codes 
1120 LET X. LET L: Puis menu)" 

RÉTURN : REM Coofdonnees de deb 30 INPUT FLASH 1j"UOTRE CHOIX 
ut d'analyse du caractere cs 

1150 REM SUB 00 $046 1F c t” THEN GO TO ME 
1148 IF O=1 OR @=2 THEN GO SUB 1 350 INPUT FLASH 1; “@uadrant de 
160 depart 7*;0 

1150 IF @-5 OR @=4 THEN GO SUR 1 sÛE ve 












1sa C$="v" THEN LET_H$="228- 
1168 RETURN VU PU": DO SUB TR 
1178 REM lecture des codes € LET _H$="x-19 
118@ LET n=0: FOR i=166084+C TO 1 ed GG _SUE TR 
8400+C STEP 256: PRINT AT n.CP:P © LET _H$="223- 
EEK i5" : LET n+i: NEXT i: R Ü 60 SUB TR 
ETURN € LET Va "rR167 








1198 LET n=8: FOR 
EP 256 
ÉET 


200@ REM Dessiner 


18432+C TO 2 
PRINT AT _n,CP;P 
N+i: NEXT i: RE 





GG SU5 
Sôs éee: ror gq=1 Fa 4: 6 
: GO SUB 0@: NEXT à 


4000 REM Affectation touche- 



































2010 PRINT AT 26% +CAPS 4010 INPUT ‘Quel quadrant?";@: ZI 
SH,PoUr diag." AT 17:45 ecrit F @<1 OR @>4 THEN GO TO 4010 
G=erfacer"{At 16,4; "1 4020 PRINT AT 21,5; PAPER 6; "Car 

fen ecrire T=términe"; AT actere ‘ MAUUSCULÉ* 

19,4; "S'il Ua une sumetrie.plac 405@ INPUT ‘affectation a quelle 
JAT_20,4;" Pres de san axe touche?"; LS 

puis s* 4G4a GO SUB UQ: IF O=1 OR O=2 TH 

2020 LET L=3: LET C=19: LET 520 EN LET test-16608+C: GO TO 4@6a 

2850 LET noir=® 4658 LET test=16462+C 

2040 LET caz2CÔDE INKEYS 486@ FOR i=@ TG 7: POKE USR LS&+i 

205a cd=57 THEN LET noi PEER test: LET test=test+256: M 

PGeo 2 edcaë THEN LET noi ÉXT à 

2070 IF cd=49 THEN LET noir=2 407@ REM Affich caractere 





“t* THEN GO TO 22 4@8@ PRINT AT CODE L$-64,0;LS$;CH 
R$ (CODE LS 

s" THEN GO SUB 2 4@e@ INPUT 
8, choix?";C 

THEN 60 TO 26 4100 IF C# 
4110 IF C 


Z@S6 IF INKEYS$ 
: RE Termine 
2080 IF INKEYS 


2100 IF INKEY$<>" 










cont. M=menu  Votr 


m' THEN GG TO ME 
c' THEN GO TO 4809 




















10 LET L=Lriicd=9)+icd=S4)+tcé 4120 GO TO 4@ea 

3 AND Lé=1i4)-((cd=6)+{td=55)+ SGGQ REM ecrire Les REM/DATR---- 
=11) AND Lo) 

@ LET C=cr((cd )+(Cd=S61+(C S010 INPUT “Quel caractere? {MAg 
3 AND C<25)-(C( S)+(cd=58)+( USCULE)";LS#: LET m=CODE LS: IF m 
10) AND _C>8) <41 OR _n>8S THEN GO TQ sa1@ 

8 IF s THEN GO 5 2520 5029 LFT af-PEEK 236554+256+PEEK 


PRINT AT L, 256564 
INVERSE noir: PLOT_INUERS S0S3@ LET 
E noif;192+C,118-L: IF s THEN PR Se4@ FOR F 
INT AT Li,C1; INUERSE noirs; "mm": S=STRS PE (USR L$+ii 
PLOT_INUERSE noir;192+C1,119-L1: S@Se FOR LEN P$ TO 1 STEP -1: 
GO TO 2040 PORE 3,CODE P#(ji: LET à=3-1: NE 
2150 PRINT AT L,C; GOUER 1; INVER J 
SE _1; Éoeë POKE 3,44: LET a3=3-1: NEXT 
pokE 2521: in +79) 


2160 PAUSE S 5279 
RINT AT L,C; OUER 1; INVER BoRE" QE 2: SokE 3=0,84/"LET à 


21708 

SE 15" 2-4 : 

2180 PAUSE 5 SGée REM POKE de @ dans _Le reste 
2190 60 TO 2040 Sose FOR i=a TO af-54 STEP -1: P 
2200 INPUT PAPER 6; "H=sum H Uz=s OKE i,G: HEXT à 

ym VU  O=sun/ctra"i2$ 5108 LIST | 

2210 IF Z$="h" THEN LET ah=L 6010 REN Effacer Les Lignes inut 
22320 IF Z$=:V" THEN LET av=C iles--- SR dases 
3250 1F 2$-"0" THEN LET ah=Ll: LE 6020 CLS : PRINT ‘vous pouvez su 
T_av=C pprimer Les Lignes du progr et n 
2240 LET_s=1: RETURN 8 conserver que les DATR à sauve 





af 
7 TO @ STEP -1: LET P 









































3258 PLOT OÙUER 1,192+#C,119-L: RE garder": PAUSE © 
M_ sur caractere temoin 6920 INPUT 

2266 1F INKEYS="" OR INKEY$="S" ?*;L1: PRI 
THEN 60 T0 2260 G@4@ INPUT 

2270 GO TO 2830 acer iL2; PRI 
2260 REM Termine tientez.. 





2290 FOR @=1 TO 4: GO SUB VG: GG GQSO LET 
SUB @0: NEXT © 6@6@ LET n 


























2300 FOR isie TO 16: PRINT AT i, ,LET Uosé+PEEK 
Le NE: i 

251e co TO ME 6078 IF no=Li THEN LET_ad=a 
2320 REM ecriture avec sumetrie 6080 IF no=L2 THEN GO TO 6100 
2530 IF z$="v" THEN LET Ci=dzxav- 6090 LET az=a+lo: GO TO 6068 
G+1: LET Li 6100 LET lon=atlo-ad-4: POKE ad+ 
2540 IF z$8="h" THEN LET Li=2xah- Æ,lon-INT (lon/b)xb: POKE ad#S,I 
L+1: LET Ci=C NT {lon/b): PRINT ; PAPER _E:;"ThP 
2350 IF z$="0" THEN LET Li=2xah- EZ “;L1;" puis ENTER‘: BEEP .8,1 
L+i: LET Ci=2+#av-C+i 2: sTOP 
3360 RETURN 3899 SAVE ‘“CARADATA" LINE 519S 

F. QUÈRE 
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Quatre programmes de jeu 





ZX81 français 





Nouvel essai de francisation du ZX réussi, cette 
fois-ci en utilisant la HRG Memotech. Après 
avoir entré le programme et pressé RUN, ap- 
puyer sur la touche NEW pour vider la mémoire. 
Tout programme entré ensuite apparaîtra fran- 
cisé. Par exemple, si vous appuyez sur la touche 
THEN vous obtiendrez ALORS. 






































1 REM 1234567899123 115 POKE 391,C0DE "V"]185 POKE 448,C0DE 
2 REM HR EREENEEOOPONNNEEE 116 POKE 392,C0DE 186 POKE 449,C0DE 
3 REM * ZX81 EN "FRANCAIS" * 117 POKE 393,C0DE 187 POKE 458,CODE 
4 REM HRK ROPEOOEONNNENNNENENNEX 118 POKE 394,CODE 199 POKE 451,CODE 
S REM * MICRO CLUB ORLEANS * 128 POKE 395,C0DE "M"|191 POKE 452,C0DE 
6 REM * LLATY BERTRAND * 121 POKE 396,C0DE "O"|192 POKE 453, CODE 
7 REN RÉ OROPEREPONONENEEX 122 POKE 397,C0DE "N"|193 POKE 454, CODE 
8 REN 68 POKE 339,C0DE "R"|123 POKE 398,C0DE "T'|194 POKE 455, CODE 
18 FAST 65 POKE 344,CODE POKE 399,C0DE "e"|295 POKE 456, CODE 
11 POKE 16514, 33 7@ POKE 348,C0DE POKE 419,C0DE "P"|291 POKE 457,C0DE 
12 POKE 16515,6 75 POKE 349,C0DE POKE 411,C0DE "0"|295 POKE 458,C0DE 
13 POKE 16516,0 76 POKE 350,C0DE POKE 412,C0DE "U"|396 POKE 459,C0DE 
14 POKE 16517,17 77 POKE 351,0 POKE 413,C0DE "r"|2g7 POKE 460, CODE 
15 POKE 16518,0 88 POKE 358,CODE POKE 414,CODE "V"|298 POKE 461,C0DE 
16 POKE 16519, 81 POKE 359,C0DE POKE 415,C0DE "a"|299 POKE 462, CODE 
17 POKE 16528,1 82 POKE 369,C0DE POKE 416,CO0DE "S"|215 POKE 471,C0DE 
18 PUKE 16521,0 83 POKE 361,C0DE POKE 417,C0DE "/"|216 POKE 472,C0DE 
19 POKE 16522,4 84 POKE 362,C0DE POKE 418,C0DE POKE 476,C0DE 


20 POKE 16523,237 85 POKE 363,C0DE 
21 POKE 16524,176 9% POKE 364,C0DE 
22 POKE 16525,201 91 POKE 365,C0DE 
23 RAND USR 16514 32 POKE 366,C0DE 
30 POKE 276,C0DE "a"| 95 POKE 367,C0DE 
31 POKE 277,0 36 POKE 368,C0DE 
35 POKE 299,C0DE "G"| 97 POKE 369,C0DE 
36 POKE 291,C0DE "r"| 38 POKE 379,C0DE 
48 POKE 315,C0DE "E"| 993 PÜKE 371,CÛDE 
45 FOKE 318,C0DE "R"|108 POKE 372,C0DE 
46 POKE 319,C0DE "A" POKE 373,C0DE 
47 POKE 320,C0DE POKE 383,CO0DE 
54 POKE 327,C0DE "c"|106 POKE 384,C0DE 
51 POKE 328,C0DE "A"|197 POKE 385,CODE 
52 POKE 329,C0DE "s"|108 POKE 386,C0DE 
53 POKE 338,C0DE "e"|114 POKE 387,C0DE 
55 POKE 334,C0DE "c"|111 POKE 388,C0DE 
56 POKE 335,C0DE "H"|112 POKE 389,C0DE 
POKE 336,C0DE "A"1113 POKE 390,C0DE 


POKE 419,C0DE 
PÛKE 420,C0DE 
POKE 421,C0DE 
POKE 422,C0DE 
POKE 423,C0DE 
POKE 424,C0DE 
POKE 425,C0DE 
POKE 426,8 

POKE 435,C0DE 
POKE 438,C0DE 
POKE 439,C0DE 
POKE 449,C0DE 
POKE 441,C0DE 
POKE 442,CODE 
POKE 443,C0DE 
POKE 444,CODE 
POKE 445,CODE 
POKE 446,CO0DE 
POKE 447,C0DE 


POKE 477,C0DE 
POKE 478,CODE 
POKE 479,C0DE 
POKE 480,CO0DE 
PÛKE 481,C0DE 
PÔKE 482,C0DE 
POKE 483,C0DE 
POKE 484,C0DE 
POKE 498,C0DE 
POKE 491,C0DE 
POKE 492,C0DE 
POKE 500,C0DE 
PÜKE 581,C0DE 
POKE 502,C0DE 
POKE 503,CODE 
POKE Sü4,CODE 
POKE 595,CODE 
RAND USR 9346 
SLOW 











Bertrand LLATY 
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S65 NEXT I 


. S67 CLS 
Verbes du premier groupe 570 6670 2çe 
(ZX 81 16K0) 860 LET U$= FUTUR" 


585 GOTO 595 
590 LET_W 
595 FAST 
608 IF O$=" ALLER" THEN GOTO 15S 


e 

6QS_IF Q$="ENUOYER" AND G=U THE 
à é re : N_GOTO 1900 à 

Un petit didacticiel de conjugaison à la limite du 619 IF U&(U TO S)a"EL" THEN GOT 


A Ù à o 800 
pédagogique et de l'amusant et qui possède une 615 IF U$(U TO S)="ET" THEN GOT 
se DUerS AE 
structure facile à étudier et à réutiliser. 628 IF Us(U TO S)="0Y" OR U#(U 
TO $)="UY" THEN GOTO 1190 
625 IF U$(S TO S)="6" AND Gex T 
HEN GOTo 1200 
63Q LET U6=60$(U TO @-S) 


PRESENT * 




















10 REM CONJUGAISON DES VERBES 2e LIU où 
BU 1 GROUPE AU PRESENT ET É38 ÉOR eg PO F 
AU FUTUR... MARMRIN 6. 848 Ler ÉstxD 
2e LET Ù 689 IF G=X THEN GOSUB 950 
656 IF G-U THEN GOSUB 970 
40 LET 669 NEXT 1 
$Q LET G=ZzHU 665 SLOu 
éè LET D 67 PRINT AT Ca4D,0; "NOUVEAU VER 
78 LET F 8 ’e PEN 
25 LET X 675 PRINT ‘POUR RECOMMENCER FAX 
89 DIM R& RE Fe 
55 DIM N( 682 INPUT R& 
58 LET N “ S8S LP RSSOS TT THEN STOP 
@ LET sa & 
Rd Bug t Lee mlter M Me 88 PSRCrouero 
s-VQUS IL = 
598 LÉT Ffe"ERAI ERRS ERR ERA 70S LET AS(I) =J$ 
ÉRONSEREZ ERONT ERONT A 219 LET NI) =U 
180 LET T#='E Es LE 215 NEXT I 
ONS EZ ENT ENT IRA IRA 228 RETURN 
128 LET ys="IRAT IRAS 252 FOR I=U TO C 
TRONSIREZ IRONTIRONT 6 252 Fer ntex 
130 LET Ig= VRAIS UAS OUR ES NERTU 
A ALLONSALLEZ VONT _UONT 788 FOR I2O4U TO F 
135 LET_X$=" ENUERRAI ENVERRAS E 258 LET NtI)=Xx 
NÜUERRA__ ENUERRA__ ENUERRONSENVERE FÉS NEXT I 
EZ ÉNUERRONTENUERRONT 268 RÉTURN 
148 LET L$=" DÉCONGELERCONGELER 600 FOR I=U TO LEN L£-(F+U) STE 
DECELER ÉPER ee CREER a P D+s 
EMANTELERCEL 4 805 IF Ugz=l +F + Fra 
RTELÉR GELER HARCELER, MRRTE  of9 630 LSUI TO L+F+U) THEN 
LER_ MODELER,  PELER 31e NEXT I 
145 LET Cé=" CONJUGAISON DES VER 818 LET J£=N$(S TO 9) 
BES DÙ 1 GROUPE AU PRESENT OU AU 628 GosuB 700 
FUTUR.CHOISISSEZ EN REPONDANT É 825 GOSUE 550 
POUR PRESENT ET 8 POUR FUTUR. |  @3@ GOT10 639 
‘ 850 LET N(D)=x 
150 LET M$="RACHETER ACHETER 855 LET N(D+U)=Xx 
CROCHETER FURETER, HALÉTER 869 RETURN 
155 LET K#="REIOU: 380 FOR I=U TO LEN M$-(F+U) STE 


DS ie est ne di 

158 ?F INREYS= THEN Goro 170 099630 v$-M$(I TO I#F4u) THEN G 
188 SAVE “CONJUGAISON ES" NEXT I 

isa CLS LÉT J#=NS(Z TO 2) 

209 LET Y=CxF-U GOSUE 709 

210 LET E=2+(D+S3 SosUus 650 

220 FOR I=Ù TO LEN Ce-y GoTo 650 

330 PRINT AT E.X:C$CE FO Levi RINT “CONJUGAISON DE 

240 FOR J=U TO DES U 

2S90 NEXT J 

260 NEXT I 

265 CLS 

278 BRINT AT U,D;"UERBE DU 1 GR 


278 LET S$(S TO S)="E" 

289 INPUT 6% 

2950 FAST 

509 LET O=LEN 0 

319 IF_O<C THEN GOTO 55@ 

320 LET U$=6$8(6-Z TO ©) 

339 IF U$(Z TO Ci c>"ER" THEN 6Q 
TO see 

335 Gosus 1400 

348 IF G>=5#D THEN LET Uf=O$(U 
TO_S+D) 

358 IF G<SxD THEN LET U$=0$+2$4 
U TO S+xD-@) 

369 LÉT G=X 

370 FOR IzU TO F 

389 LET N(I)=X 

380 NEXT_ I 

400 PRINT AT S4+4U,F;"PRESENT/P,F 
UTUR/E* 

418 SLOU 

4280 INPUT R& 

F* THEN GOTO 575 
$="P" THEN GOTO 590 

450 GOTO 408 
50e SLou 
5 PRINT AT Ss#D,X; "CE N EST PR GOSUS 7: 
N VERBE DU 1 GROUPE" GOSUB 750 
FA FOR _Izu TO F#D 1815 GOTO 550 
7 
e 


Q 
8 
(] 











; 
o 


me 


601 UMOUY | UYMOGO VUUYD: 
QD M: JDD MUR D À OUR 
0€ an USD un NEUTEOUEU 


N 
=C 
E) 
TU 
N 
-€ 
N 
C 
3 
U: 
Ü! 


25 


F 
E 
E 
F 
E 


“4 


HEN PRINT AT F4 
“OUIUSIFSIE-C TO 


+ 
HEN PRINT AT F+#1 
3" AUS AGITIIF SE 


00m mn 
MSadm! 





6069 
DH 
sus 


E 
R 


CF +U) 
F+1:S#D;S$(E-C TO 
To 


een 
12 
4 


SzROUUSZU 





41 1X X 44 
C Oz 


Im 
+ 
co2oc 
HOME 








U 
I 
6! 
$ 
é 
$ 


phbhbbbRBbRMBbBBe [Me 


RUDRAPRP LEGO 
BONNE GUR 
SUSASUGASEN : 

LE, 

Li 

+ 


NEXT I 1500 GOSUB 949 
T0 F 


558 SLOU #(D+U) 

S55 PRINT AT _S+#D,X; "IMPOSSIBLE THEN PRINT AT F#I,:Di 
DE CONTINUER AUEC “;:6$ SR TO EN DUT FT CES 
560 FOR I=U TO FD 1325 IF G=X THEN PRINT AT F4#I,D: 
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(E-C TO E);* 
38 NEXT I 


“3I$(U-D TO W} 


KI TO I) TH 





VERSE DU 1 GROUPE 7 


PRESENT /P ,FUTUR/F 
CONJUGRISON DE MANGER AU PRESENT 






JE MANGE 

TU MANGES 
il MANGE 
ELLE MANGE 
NOUS  MANGEONS 
UOUS HANGEZ 
ILS HANGENT 
ELLES MANGENT 


NOUVEAU VERBE 7? Y/N 
POUR RECOMMENCER FAIRE SSSR SES 





Georges MARMAIN 





Spectrométéo 
(Spectrum 48K) 





Très joli programme parfaitement de saison qui 
donne des prévisions métrorologiques pour une 
échéance de 24 heures en se basant sur une 
méthode due à l'Abbé MOREUX et qui donne 
des résultats bons à 80 %, le tout avec beau- 
coup de couleur et d'humour. 





10 REM HHHERREREREEEÉRÉEÉERENEÉ 
# PÉCTROMETEO 
RERRELELREEEÉEREREEERERE 

11 REM 

12 REM 

19 REM Re NU NU H UNE 
# HARDY -1984 x 
HRRERÉELERERÉERÉEREREE EE 

14 REM LE 5-9-84 À ETAULIE 

15 REM 

16 REM 

17 REM 

18 REM 

19 REM #4 #XRRXERRRRNEREEEUURN SE 


* DATAS DÉS UVENTS # 
ÉÉRRELÉÉEEEÉRÉÉERÉERUU SE 


20 RESTORE 25: DIM US(8,1@): PF 


OR F=1 TO 8: READ US (PF): NEXT mé 
NORD" : "NORD-EST" NEST 
“SUD-OUEST”, "O0 





; “NORD OUEST 
26 REM XFKÉKERRREXEREEEEEREE EX 
+ DATAS DES SAISONS +# 
HRRERERERERERRERRENNEER 





90,RESTORE 98: DIN s#(4 9): FO 

R f=1 TO 4: RERD S$(f): NÉXT 
$5'oûta ‘ete, -AUronNet, CNIVER 
: "PRINTEMPS" 


4e POKE 23658 ,8: 
8e LET _U=0: GÔ T 
62 GO sÛB 9997 
ES REM X#H##EEEEEEEELEELEREREX 
# INTRODUCT LION # 
RRRRREEERRERERERERRREEÉ 


0P2$5,29609,20 
[1-1 





78 PRINT “Pour vos previsions 
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“ous aurez besoin : PRINT : PF 

RINT “1)d’un barometre“: PRINT : 
PRINT “ide savoir La direction 
du vent" 

80 PRI PRINT “En ce qui co 
ncerne ce niere,sachez 
que Le v toujours à 
auche de tion indique 
e par un (de 1/8ese d 
e tour e 

36 PRI Lorsque vous 
aurez reu tous ces 
ingredient tapez une 
touche... 

95 RE HERRERERÉEEEEESEEEREÉÉEESE 
#DESUT DE LA PREUISION# 
ÉRÉRHÉEEÉRÉÉSÉERÉRÉEEREX 

ze nue 

ceur 8,18; 
sion: ET P=(P276S) +2#1( 

2 ANI )+3+(P>755 AND P 
@) #4 ) 

115 1 

120 AT ©, Dispuerte est ta 

dire du ve 

150 5 PRINT 5: PRINT _“1--> 
NORD “2e--2> NORD-EST" | 4 
RINT PRINT ‘“4-->SUD-E 
ST “S-->SUD" 

1 —-2SUD-OUEST " PRIN 
E à >OUEST PRINT "8-->»>NORD -0 
UEST 

152 INPUT “No correspondant 7° 





Vi TIF V<i OR V>8 TH 

;SSLUPRINT ÊT 8420 
{U): GO SUB 9937 
2 LÉT V=(vV=1) +22 (V=2 OR V=S) + 

SE =4 OR Vas) +4 (V6) +8 V7 OR 


60,T0 150, 
vent 











179 INPUT “No correspondant 7 
s:'1F S<1 OR s4 THEN GO TO 170 
171 PRINT AT 18,10; "Saison  : 
“:6$(s): Co SUB 6997 

208 RESTORE s +1000+Pp #100+v *10 


252 RERO ts,Us 
260 PRINT TAB 9; “SPECTROMETED 
RRRÉRERERERRERT 
PRINT PRINT PRINT : PRINT 
5 PRINT _: PRINT 
308 PRINT, t$;: PRINT US: PRINT _: 
PRINT AT 17,10; FLASH 1; "Tapez: 
coCopie##s>SUite 
310 _ IF INKEY#$<>"S" AND INKEY$ <> 
THEN PRINT AT 





“C" THEN GO TO 310 
320 IF,.INKEY#="C" 
17,30; 
Coév 
339 LET U= 








GO SUS 9997 











340 PRINT “Vous desirez PRI 
NT : PRINT : PRINT _"1-->Revoir 
2 presentation‘: PRINT PRINT 
2--r0btenir une autre previsio 
5 PRINT PRINT “3-->Quitter Le 
Progranme 

35: OR INKEY$>"3" 


IF INKEYS<"1" 
THEN Go TO 350 
368 IF INKEYS="1" THEN RUN 


339 ZrSINKEX DHENUGOLTO 4e 
380 CLS : NT “AU REVOIR: 
PAUSE So: CLS sTOP 


994 REM 
399$ REM +#EE#R#EENREREREEEFÉERERE 
4DATAS DES PREUISIONS + 
HRERREEÉERELREEEEREREREE 








396 
397 
333 
1888 


REM 
REM 
RENM 
REM 
* 
RRERRREERÉÉERERERERREEE 


ÉRÉRELELEELÉELLELEREREEE 
ÊTE * 





1119 DATA 
"Journees 


120 DATA 


"Beau ou as5s5eZ beau. 
chaudes ,nuits fraiches 


“Beau.","“Journees chau 
es.nuits £caiches ." 

136 DATA ‘Beau ,mais orages poss 
jbtes.",NTces chaud Le jour, chau 
uit." 


1140 DATA ‘Beau ou tres beau."," 
Chaud ou tres Chaya." 
1150 DATA ‘“Beau.","Chaud dans La 
journee,assez frais La nuit 


nrbane, 
























1219 DATA Assez beau,ondees pos 
Sibles.","Assez chaud." 

1228 DATA “Beau OÙ assez beau,ay 
Sc parfois averses orageuses."," 
Chad où assez Chaud Le jour, 
nuits fraiches." 

1239 DATA “Beau ,avec 
S_d'aversesorageuses. 

1249 DATA eau ,ondees o 
possibles.","ASsez Chau 

1250 DATA “Assez beau,ma 

3 possiblesenmontagne."," 

ture douce 

1518 DATA, “Ondees ou ave 
geuses.", 









re] 
n 
8! 
D: 
2 
3 
2 


Pluie orageus 





6 
eémperatures do 
e 
t 


mperature douce." 

1330 DATA “Temps Lourd e 

avec averses.","Chaud." 
1349 DATA “Temps Lourd et ocages 


possibles.","Assez chaud" 
1350 DATA “Ondeses et averses ave 





© un peu devent.","Temperature d 
suce." 
1416 DATA “Pluie et vent.","Temp 





erature douce." 

1428 DATA “Plüies orageuses avec 

un peu de vent.","Temps Lourd & 

t humide." 

1459 DATA ‘“Ayerses orageuses et 

vents violents.","Chaud et 

humide.‘ 

1440 DATA ‘Orages et averses ofra 

geuyses."," Assez Chaud." 

1458 DATA “Pluie a tendance orag 

euse avec vent.","Doux et hUmid 

Eos 

1999 REM 

2000 REM +######FF#EEEÉERASERENEEE EX 
= AUTOMNE * 
ERRREEREEEEEÉÉREEEEEEEE 

18 DATA “Beau où assez beau.", 
‘Chaud Le ,jour.Gelees à craindre 


La nuit. 
“Beau où assez beau." 
deree:getees à 


“Beau ou assez beau.", 
aud te jour,frais La 

ees possibles. 
“Seau.","Chaud où asse 
fraiches." 











À 
e 
A 
h 

L 
A 


Le jour,nuits 


























2150 DATA "Beau ou moderement ny 
ageux.","Chaleur moderee Le jour 
nuits fraiches." 
210 DATA ‘“Ondees Llocates.*,"Tem 
Peratures fraiches. 
2220 DATA “Assez beau,avec possi 
bilites d'ondees.";"Frais Le 
jour ees Locales." 
2230 Nuages moderes;ondees 
et e cies."”,"Assez Chaud." 
2240 Gndees”'locales et ven 
ts fa ‘,'temperature douce. 
2250 Assez beau,avec onde 
S toc et gibouleés en monta 
gnes perature douce,parfoi 
5 _un iche." 
2910 Averses.","Temps frai 
25298 DATA ‘"Ondees en plaines,gib 
Sulees en montagnes.","Temps fr 
ais." 
2350 DATA ‘Nuageux,avec pluies e 
parses et vent modere.", "Temps 
aux." 
2340 DATA “Pluie possibles ,vent 
modere.","Temparature douce." 
2558 DATA “Ondees en plaine,gibo 
Ulees en montagne;vent faible. 
","Tenps frais." : 
2410 DATA ‘Averses de pluie ou d 
e neige. Temps froid et temper 
ature en baisse." 
2480 DATA "Averses orageuses e*? 
vent modere.","Temps frais 
“Pluie et parfois aver 
grageuses avec vents 
assez forts","femperature douce. 
2440 DATA “Pluie et vent fort.", 
“Temps doux et humide 
2458 DATA “Fortes pluies et vent 
fort, bourrasques eige 
en montagne“,"Temps fr 
2929 REM 
SO0S REM #Hx##KREXEREERERERÉER EEE 
* HIVER * 
ÉRRARERERÉÉEREREREERERE 
3110 DATA “Beau ,avec tendance a 
la brume etau brouillard.","Temp 
erature fraiche.“ 

















! Nom Prénom . 
| Adresse ER 
Code Postal L_1 1! J Ville £ ET . 


LE BON 
CI-CONTRE 





| rEjouRNEz : 





| (à retourner à LIST - Service Numéros - 
! 5, place du Colonel-Fabien - 75491 Paris Cedex 10). 


Je désire recevoir la collection complète des 
numéros de LIST au prix de 109F.Je joins monrèglementindis- 
- pensable à l'ordre de LIST. 

| {Offre valable pour la France métropolitaine). 


BON DE COMMANDE | 








11 premiers 
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À 


VG3 n 
Av X AR 
De 


BED 100D 
De 


+8 augoc.concs 





n° 2=3cD 


© 
Q C :pncrou 


ATA ‘Beau et un peu brumeu 
“Temperatures moderees Le Jj0 
j fortes gelees La nuit." 

a DATA “Assez beau;:gibnllees 
montagnes Fcoid 
6 DAT Témps brüumeux;giboute 
a 

a 

n 











R 





MOTV > à HER QYPOUR 


neige”,"Froid. 
DATA “Aisez beau à modereme 
uageux,avec ondees possibles 
;" "Temperature ce 

240 DATA “vel 
.","“Temperatur 
256 DATA “Mode 
DuLees en mont 
318 DATA ‘Neige © 
Froid." 

320 DÂTA “Neige où giboutees." 
Froid." 

3330 DATA “Pluie possible,avec v 
ent fort.","Temperature douce." 
3340 DATA “pluie ou neige avec 


2H0QNUCXG: MCQU- Un 


Eat 


3 


Le QU De 
CRRaUE 


mn 
“,“Froid." 
É ue 





















ent.","Temp 

3380 DATA ‘ U 

Froid." 

5418 DATA e 

yiotent. id 

3480 DATA ulees,neige possi 

ble;vent re ez tort. 

2'Eroid." 

5432 DATA ie ige fondue 

savec ven ts PS assez 

froid,par d 

3448 DATA Lui ge avec 

nt viole :"Temperature douce, 

348 DATA Luie et bourrasques, 

Suneige-"."Froia." 

3998 RÉM 

4000 REM #####EXEREEREERERERER EX 
# PRINTEMPS * 
HRERERERÉEÉEERERÉEREREE 

4110 DATA ‘Beau ou assez beau.‘, 

Journees chaudes,nuits fraiches 


gelees matinales.* 

128 DATA ‘Beau où assez bea 
Journees douces Ou assez € 
sNuits fraiches;gelees poss 


h 

î 

dise DATA ‘Beau ou assez bea 
Journees cChaudes,nuits frai 
a 
a 


-:'Assez ch 


4140 DATA ‘Beau 
;"Assez ch 


4158 DATA “Beau 
ans La journee frais La 
Sgelees possibles au petit m 
rai 

Aèie DATA “Ondees ou giboutees." 
"Temperatures fraiches." 


























4220 DATA ‘"Giboulees.",'"Journees 

fe uits froides;jgelees 

a € 

423 Assez beau ou ondees 

Oo g ,'Journees un peu cha 
unpeu fraiches." 
Ondees ou averses. 

Temperature douce 

4250 DATA ‘“NUageux,avec ondees P 

ossibles; giboultees en montagne 

. 0 Ten fais 

âgia DATA “Ondeës ou giboulees. 

: "Temperature fraiche." 

4s26 DATA, “Ondees OU giboulees à 

vec vent.","Temps frais." 

4330 DATA “Pluie ou averses avec 
un peu de vent.'",‘"Temps doux." 
4540 DATA “Pluie ét vent assez f 

ort.","ASsez doux." 

4560 DATA “Ondees en plaine, gibo 

utees en montagne.","Temps fra 

is." 

44ie DATA “Pluie ou neige avec v 

ent.","Temperature basse. 

44288 DATA “Ondees ,giboulees ou à 

verses orageuses;jneige en mo 

ntagne.Ventfaible ou modere.","T 

emperature basse." 

4430 DATA “Pluie et vent assez f 

CYS FO: ature douce." 

4440 ÉAT Uie et vent assez f 

ort.";"Temperature douce." 

4458 ÉATA “Pluie en plaine,neige 

jen ntagne.","Temps fra 

na 

7800 REM 

7900 REM +###REXEKEXERERAEREREES 
# PREÉSÉNTAT LON * 
REXLELELELEERERÉEREREEE 

7895 REM 

7999 


REM 
6808 PAPER 4: INK 4: BORDER 4: C 
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Ls 
8210 FOR f=1 TO 22: PRINT PAPER 


5 

: NEXT f: PAPER 5: INK S: 
RDER 5 SE.P9 
6020 FOR_f=0 TO 2+#PI STEP PI/20 
6925 PLOT INK 6:55, 





120 
8950 _DRAU INK 6; COS fx (RND #20) + 
SO) ,SIN fx ((RND 420) +30) 
6246 NEXT f 
SG4S REM ####H#EREEEEREXERERER XX 
* PETIT NUAGE % 
ÉAXHEEELERELÉRÉFENERE EE 
8050 RESTORE 8080: FOR f=USR “a 


TO_USR “a"+87: RERD à: POKE f,a 
: NEXT _f 
6068 LET Lz=13: LET C=2: LET Zz=#1 


8863>PRINT AT L,ci INK 7; ABCDE 
3064 PRINT AT L+1,C; INK 7; "F6 











Es 

EN PRINT AT L+2,C; INK 7; "Lol 

S070 IF z=2 THEN GO TO 6188 

G071 LET L=S: LET c=20: LET z=2: 

50 TO 8263 

3880 DATA 8,0,0,1,BIN 00000811,8 

IN 29000811:BÈN 86080111,BIN 860 

3881 DATA Q,0,@,8IN 11111110,25S 

:255,255,25$ 

$082 DATA 0,0,0,@,BIN 18008111,5 

IN_10011111,BÈN 16111111,25S 

8283 OATA 8:0,0,B8IN 81111111,25S 

:255,255,25$ 

6984'"DATA G,0,0,BIN 10000000 ,BIN 

11000008 ,81N/11100080,BIN 11108 

oa8,BIN 11100088 

Seëé DATA D,0,0,1,BIN Q00a@111,8 

IN, 20061111/B£N G6081111,BIN 660 

5986 DATA BIN O2201111,BIN 9011 

111,8IN G0811111,8IN 11101111,25 

5,8$65,255,255 

5887 DATA BIN 11100000,BIN 11902 

309,81IN 10100008,HIN 11110099,57 

 11111000,BIN 11111100,BIN 1111 

1116,BIN 11111110 

39888'/DATA BIN 98011111,BIN 00011 

111,BIN G@G11111,BIN G6911111,51 

NB6021111,BIN Géeaa111,5IN Géaa 

2089 DATA 255,255,a55,255,255,25 

S,255,BIN @G0i111i 

3690 DATA BIN 11111110,BIN 11114 

110,BIN 11111100,BIN 11111180,B7 

HN 11111000,BIN 11110008,BIN 1110 

2088,BIN 11988008 

SO9S REM RHHREREHEEÉERÉE RENE HUE EE 
Li GROS NUAGE BLANC # 
RÉCFÉTTELETETII TT S 

8096 >REM 

5190 RESTORE 8158: FOR f=USR “a” 

T Fa°+187: RERD ai POKE F, 

a 

811 AT 14,17; INK 7;5" ABC 

DEF 

511 AT 18,17; INK 


AT 16,17; INK 
17,17; INK 





2 
4 


oP 
8159 DATA @,0,0,S8IN G2008011,BIN 
92001111,8IN 06@11111,BIN d6811 
111,BIN G6@11111 

8181 DATA 0,0,BIN @1111100,255,2 
S5,25$,255,85$ 

8182 DATA 6,0,BIN @0200011,BIN 1 
1811111,255,265,255,25S 

8188 0nt4 2,0:265,255,255,255,25 
3154 DATA @,0,BIN 11102@08,BIN 1 
1111000,BIN 14111000,BIN 1111110 
S,BIN 11111011,25S 

+3155 DATA 0,0,6,0,0,0,BIN 111008 
28,BIN 11111060 

5166 DATA ©,0,BIN @0000011,BIN © 
9811111,8IN 06011111,B1IN G611111 
1,BIN @6111111,BIN @6111111 

8187 DATA _BIN 60211111,81IN @@111 
111,255,255,258,255,2956 ,2 

5156 DATA BÉN 11111600,BIN 11111 
188,BIN 11111100,BIN 11111100,B7 
N_11111100,BIN 14111100,BIN 1411 
1188,BIN 11111180 

S159/DATA 127,127,127,127,127,12 
7,127,127 

6180 DATA BIN 11111100,BIN 11111 
226,BIN 11111088,BIN 11111888,B1I 
N 11111000,BIN 11110000,BIN 1118 
2088,BIN 11000088 

8161 DATA BIN @9111111,BIN 8811 
AIL,BIN Go611111,BIN G6080111,8, 
S464>DATA BIN 11191111,SIN 11100 
lil BIN 11000011,BIN G6000081,0, 
816$ DATA 255,255,255,255,BIN @8 
111111,BIN 00608811,8,0 








EST Tas on TEMPS 


À METTRE ON 
A UR DEHORS 


2 
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JEUX 





8465 REM HRXRAREEEEEEHEENERÉER SRE 
* PERSONNAGE PAROPEUTEX 
CETTE: 


5466 
$+2e BESTORE. st7e FOR fzySR ‘a 
RÉAD a: POKE f,a 





REXT 
847S dat 2, BIN ©60082110,S 
IN CERTES Séa1de1e, BIN Et 
18801, :8,B1 10000080 ,BIN @11 
d8888 : BEN 20810088. BIN 01881008, 
BIN_ @éea1e 

8496 DATA BIN oeo18011 BIN 20010 
108,BIN 00801000 ,BIN 86228110 ,1, 
Le 19 90081060 DIN @2801868 ; 
BEN ‘a6010080,BIN 11190808,08,8,@; 


Saga, TNK Se PAPER 1: PLOT 79,1@: 
4» =9 BE DRAD  d0à DRAU 4, 


Fa Fp4 1 (1 
BE 12294 16 ÂT 18,9; *CD*:_PLO 
AG 2 He RAU 676: PLOT 73,17: DR 


Êtei 7£Nk @: PLOT 71,24: Raul 8,1 
OT 92,36: DRAU -48,8,1. 
Bios Ron HELP SP SET ES EP ILE 
2e MUSIQUE 
PPPPPPS ETS PENSE ETES 
gg RESTORS S80S, 
850 f=1 TO 
EEE BEBE h,d: BÉBR d,h 
8520 F 











8s3a DATA 7, 10,.5,7,.3,10, 
LORIE PRE $,.85,8,.28: 
2$,5,:5$, $ 
5560 PAUSE 
3S6Q REM HRKRÉHEERERELÉERELRÉLE 
H zen TABLEAU ANIME 
2 HRHHEREERÉETÉES 
868 PIN AT _ 21,0 APER 3: 
fast 22: POKE 23692,10: PR 
“: NEXT. LS 
8620 INK F8R f=:0 TO 31 


3630 IF f fan THEN PRINT AT f,14 
2" "AT f+1,14; 
=$S she f fre! THEN PRIN 





mn RVRVOVOY 
LRAULTET RS 
: CETTE 


Te, 
AT 21, 252- pite © 
B91@ IE F<=7 THEN PRINT AT 21,22 


8980 PRINT 


gr f<*19 THEN PRINT AT 21,f 
ÊF Fees THEN PRINT AT 21,F+ 








Fause 
















: NEXT 
89sS PA 
3s60o Fo 
INK 5; 
A) =0)+ 0" + 
£2@):AT f+ 
6965 PAUSE 
3979 LET à 
TO 1 STi 
G;a$(f TO 
2980 FOR f 
fi INK 6: * 139$ NE: 
8393 FOR f=17 TO 8 STEP -1: PRI 
FAT RO; INK $:a#: AT f+1,20; 
see Fr 2 STEP -1: PRIN 
T AT 8 +" 1": NEXT f 
aie F1 
3 LINK 
EXT f 


N 
gg2e PAUSE 20: 
ÉP 

AT ds 
2225 PAUÉ| 
$Se26 


Éses 
9030 DIM 14 ARS SALE 
OR 


FREDDY HA 


Sade DATA **," 
RDYN," 











ge" PRESENTE : 
9041 DATA 
8 
es 
2042 DATA SPECTROHETED 
C", LELLLLELL LL LE) 
L CG, 
En: 
ue 
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se4s Da 
2044 DA La, 
GRENOUILLE", " 
. . COEFGH 
_ 
of. 12H SRSRU 
;"ABCDEFG" 


2180 LET c=1 

S188 FOR (21e To Se TEPor té ET 
Csc-i: PRINT AT L,:c;: FOR ersTo 
28-Lx2: BEEP .08,0: PRINT 

j PAPER. a 2S UE, LS de TO 15S- EFrs$ 
$ee NEXT 








* 

: : 
FEU #2% 
ESTORE_9310: F: Fa! "Aa" 
ER +78: READ À: POKE F,A 
ATA 690,66,66,129,129,129,1 
129,149,129,129,129,129;1 
129,1493,1 8 386. 143,1 
1,3:7,18, EF 5,65 126 
,846,248,2 2,83,6 
81047 9807-28 2 
248,240 ,224,98 :8 
ÉCART 8 
INT AT ©,0; El 
INK 7; | 
OR F=10 TO E 
{F, TO BE 2 2 
(F,29); PAPER F 
Fa19 TO 18. P 





1: ASF) 
S888 FOR F1? D 55 Tan PRINT AT f, 
CH AR S;a%(1): NEXT f: PRINT 


Eu 
Sr, VÉRSTORE 9850: FOR F=USR 


F1 
“"A"+167: RERD A: POKE 


NES 
5840 ÉOR,F=16 TO @l: PRINT INK 4 
PAPER _1; + 
8350 DATA 











asc 
a,a 8, 
9,0,48,200, 7,0 4 
8,7, 180, 188,0 :8 
:8,0:12,48,192 82 
:164,136,112,8 21 
2,118,128,96,1 8, 
8:8,1:2:262:8: 8; 
8:8:8:0:0,8,0 a; 
6,8,0,188:98,8 26 
18,216,32 192, 4, 
$,6,4,92,92,64 
2868 DATA 8,0, e, 
2,8,0,8,0,188 6$ 
:65 ; 189; 129, 18 53 
8,64,4,8,1,6,0 21 
S6,162,17,14:1 8 
58,9,4;48,2:1 8 
4:828:,112,186,4 82 
:84,71,262,0,0 
8376 FOR F2USR ss 
: READ A: POKE IN 
Loin 45 PAPER S 
2390 GO SUB 9997: PAUSE 100 
9280 PAPER 1: INK 7: PRINT AT @, 
3; "SPECTROMÉTE 
RER EX #4 de 
2418 PRI NT : PRINT : PRI 
NT “Ce Pp va vous p ett 
re de r vos propre rev 
i- sion ologiques. P 
RINT : Pi algorithme inc 
ipal est r Une meth mi 
se au Po r L'abbe HOREUX 
iPpal st f une meth mi 
se au poi r L'abbe M x 
(1867-19: RINT : PRINT ‘Ce 
tte th e 89% de ch 
ance de € POoUr des pr 
Svisions cheance de 24h" 
3420 PRI 518; Pour contin 
ver, AT 19 tapez une touche 
ses ti" PAU 
Sé$e co TO 
5996 


REM Étsiisiisésanne ous "2 
SS-PROGRAMME "CLS" + 
Êes CELLES LL SELS LL SELS LES) 
“: LET bé=" 
FOR £=8 TO 1 
: €: IF 
2LE RETURN 
? PR AT f; 
F FÉPBRINT AT 


Freddy HARDY 


















Othello 





Un logiciel tout Basic évidemment un peu lent, 
mais qui en fait beaucoup pour peu de lignes. 
L'ordinateur demande d’abord le nom du joueur 
(A ou B). 

Si l'on désire jouer contre l'ordinateur, entrer ZX 
en premier. On entre les coordonnées de la case 
choisie sous la forme A4 par ex. 

Pour passer son tour faire « 00 ». 


DRE 








CO0RGON 





Heat 


=: 
a 
2 
2 





+ AFFICHAGE +4%444%% 
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JEUX 





FOR N=R TO © 
POKE N,I 


STEP © 









21+1; CH 


RÉFEEEES 


Sûs 5 
IF RAZ=1 THEN GOTO 568 


NEXT _Z 
IF RAZ=O HEN PRINT AT 21,0 





FOR F=1 TO 
NEXT_F 
PRINT AT 


52 


21,0;" 











FOR N=11 TO 88 


2030 
IF PEEK IU+N)2=S2 THEN LET KR 
a PEEK iU4iN)=128 THEN LET 
68 NEXT_N 





2070 PAINT AT 32 :BT 19,530; 0 
2980 IF Ro THE BGTUT AT 21,0; 
C EST _“:A$i11;" QUI GAGNE" 

2090 IF OR THEN PRINT AT 281,0;* 





C EST _":A$i21;" QUI GAGNE" 
F O THEN PRINT AT 21,0;" 
$_REFAIRE" 
TÈ Sû 
T AT 21,0; "UNE AUTRE PA 
UI Qu ŒOon 7* 
2140 INPUT H$ 
2150 IF H$="0" THEN RUW 
2160 CLS 
217@ STOP 


Dominique HELES 





Quill de Gilsoft 


« The Quill » est un logiciel utilitaire 
pour ZX SPECTRUM qui permet à 
toute personne non informaticienne 
d'écrire des jeux d’aventure en 
évitant la programmation pour se 
concentrer sur l'intrigue directrice 
du jeu. 


1! suffit à l'utilisateur de créer la base de donnée 
relative à son aventure : « The Quill » interprête 
ensuite cette base de données et fournit; après 
mise au point, un jeu en langage-machine qui 
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s'exécute pratiquement à la vitesse d'un pro- 
gramme directement écrit en assembleur. Le 
joueur utilisera ce programme en tapant des or- 
dres de un ou deux mots, comme dans les clas- 
siques du genre. 





QUILL AVENTURE ! 





La rédaction de cette base peut être laborieuse : 
n'allez pas croire qu'en un quart d'heure, vous 


réléguerez aux oubliettes Scott Adams, ce pion- 
nier des auteurs de jeux d'aventures, qui dut 
écrire son propre interprêteur de base de don- 
nées. I! faut donc fournir un certain travail. La 
notice de 60 pages indique clairement qu'une 
phase d'apprentissage est nécessaire. L'exem- 
ple fourni pour nous familiariser avec les nom- 
breuses fonctions de « The Quill » est à cet 
égard significatif la rédaction d'une mini- 
aventure (6 pièces, 10 objets environ) nécessite 
un nombre impressionnant de frappes. 

En effet, la base de données se subdivise en ta- 
bles, sélectionnés depuis le menu principal, et 
accessibles via un éditeur (cet éditeur est en fait 
l'éditeur de lignes du Basic, ce qui ne dépassera 
pas). 





Aventurez-vous 
dans les tables 





Les différentes tables sont : 


— la table des textes, dans laquelle on entre le 
texte correspondant à la description de chaque 
emplacement (ou pièce) de l'aventure (ex : je 
suis dans un couloir, il y a une porte à l'Est et 
une autre au Nord; 


— la table des mouvements, dans laquelle on 
spécifie, pour chaque pièce, les mouvements 
possibles (E, W, N, S, NE, SW, U, D, etc...) et les 
pièces auxquelles aboutissent ces directions, 
sous la forme TO numéro de pièce : 


— la table des objets, qui contient le numéro de 
chaque objet, son nom, et le numéro de la pièce 
où il se trouve au début de l'aventure. 


— la table du vocabulaire, contenant les mots 
acceptés seuls ou par paires, ainsi que leurs sy- 
nonymes (deux mots ayant même numéro sont 
Synonymes pour « The Quill »). Cette table 
contient déjà une trentaine de mots : les huits 
directions, UP, DOWN, et quelques commandes 
courantes telles que GET, DROP, INVENTORY, 
etc. 


— la table des événements qui contient les effets 
des commandes tapées par le joueur. A cet ef- 
fet, le programmeur dispose de 37 « actions » 
comme BEEP (son), MESSAGE (affichage d’un 
texte), GOTO (déplacement), etc., dont l'exécu- 
tion est réglée par 16 conditions comme AT (ob- 
jet présent dans la salle courante ou non), CAR- 
RIED (objet porté ou non), CHANGE 
(événement aléatoire), ZERO (variable nulle, cf 
infra), etc. Chaque événement se rapporte 
ainsi à un ou deux mots spécifiés dans cette ta- 
ble, selon les conditions voulues. Exemple : 
COUPER CORDE ne marche que si l’on porte le 
couteau et si l'on se trouve en présence de la 
corde, et provoque le remplacement (action 
SWAP) de l'objet « CORDE » par l'objet 
« CORDE COUPEE » ; 


— la table des états, qui contient également des 
conditions et les actions qui en découlent, selon 
la même syntaxe que pour la table précédente, 
mais les tests sont cette fois indépendants des 
ordres tapés par le joueur, et sont effectués sys- 
tématiquement : l'entrée du joueur dans la 
salle X, par exemple, provoque dans 45 % des 
cas l'apparition d'un gaz toxique, auquel le 
joueur succombe au bout de deux tours s’il n'a 
pas mis le masque à gaz; 


le programmeur dispose de 
37 « actions » 
dont l'exécution est réglée par 
16 conditions 





— la table mot-objet, enfin, permet de rendre au- 
tomatiques les actions PRENDRE, LAISSER, 
METTRE et ENLEVER sur les objets les plus 
courants : cela évite au programmeur de remplir 
la table des événements avec les nombreuses 
combinaisons entre ces quatre mots et les ob- 
jets les plus courants, ce qui est un gain de 
temps et de mémoire fort appréciable. Seuls res- 
tent alors à expliciter les cas particuliers (exem- 
ple : PRENDRE LAPIN n'est possible que si l'on 
a auparavant lesté le véloce animal d'une bonne 
décharge de plombs de chasse...). 


Pour bâtir son jeu, le programmeur dispose de 
33 variables (numérotées de 0 à 32), représen- 
tées par des octets, donc variant entre O et 255, 
dont plusieurs sont automatiquement traitées 
lors du déroulement de l'aventure par l'interpré- 
teur Quill : certaines sont décrémentées à cha- 
que tour, d’autres décrémentées à chaque tour 
passé dans l'obscurité, etc. Les créateurs de 
« The Quill » ont mis l'accent sur les problèmes 
d'éclairage et de source de lumière rencontrées 
par les joueurs. Le programmeur a ainsi à sa dis- 
position une variable dont l'état reflète la pré- 
sence ou l'absence de lumière : s’il fait sombre, 
la demande de description de la pièce courante 
est automatiquement refusée. De plus, l'objet 
numéro 0 est supposé par l’interprêteur être une 
source de lumière. cette sophistication axée sur 
un seul type de problèmes semble un peu inutile, 
mais il faut cependant reconnaître qu'à défaut 
d'être originales, ces difficultés se rencontrent 
dans un grand nombre de programmes d'aven- 
tures, et sont le B-A-BA de tout joueur «sé- 
rieux ». 


il est possible de créer avec 
« The Quill >» une aventure 
100 % en français ! 








On peut d'autre part opérer des additions, sous- 
tractions et comparaisons sur toutes ces varia- 
bles. Notons que les tours écoulés sont compta- 
bilisés par les variables 31 et 32 qui forment un 
mot de 16 bits. 
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ESSAI LOGICIEL 


La sauvegarde sur magnéto d'une partie en 
cours et sa restitution sont prévues, ce qui est 
très appréciable pour le joueur et donc pour le 
programmeur. 


De plus, il est possible de créer avec « The 
Quill » une aventure 100 % en français ! En effet, 
non seulement rien n'empêche de créer un vo- 
cabulaire entièrement hexagonal (puisque l'on 
peut définir OUEST et HAUT comme synonoy- 
mes des comandes WEST et UP, qui font partie 
comme les autres directions des mots directe- 
ment excéutées par l'interprêteur), mais il est 
aussi possible de redéfinir les messages de l'in- 
terprêteur. 





Si d'aventure vous avez encore 
envie de jouer 





On voit difficilement ce qui pousserait encore le 
programmeur de jeux d'aventure à utiliser l'as- 
sembleur (ou le Basic, pouah !) pour livrer ses 
créations en pâture aux amateurs du genre. Le 
succès de « The Quill » a été énorme Outre- 
Manche, et rares sont critiques concernant la 
réalisation technique d’une « Quilled Adven- 





Un mot sur la notice, qui ferait pâlir d'envie bien 
des utilitaires réputés « sérieux » : non seulement 
elle est très pédagogique, mais elle s'offre en 
plus le luxe d'être archi-complète ! La première 
partie permet de se familiariser avec « The 
Quill », tandis que la seconde, est plus techni- 
que, et contient notamment un organigramme 
de l'interprêteur, levant toute ambiguité sur la 
priorité des actions dans les diverses tables, La 
description de la base de données « compilée » 
(prête à être vendue sous forme de programme 
indépendant) est également fournie. Voilà se qui 
s'appelle être complet. 
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ture », tant il est vrai que celle-ci peut facilement 
être irréprochable (en particulier exemple de 
« Bougs ») moyennant un minimum de soins. La 
facilité de la réalisation permet au programmeur 
de libérer son potentiel créatif pour le fignolage 
d'intrigues savoureuses, sans se perdre dans les 
méandres de l'assembleur. Un must pour les 
«fanas ». 


Frédéric MORA 













(1 
| | N T' E RFAC E 30, rue Condorcet - 75009 PARIS 


Téléphone : (1) 285.12.34 


POUR ZX 81 ET TIMEX 


Clavier professionnel 
Interface disquettes et lecteur 5 1/4 
Extensions de mémoire 16,32 et 64 K 
- Carte d'inversion vidéo 

Carte génératrice de sons 
Synthétiseur vocal 

Générateur de caractères graphiques 


































- Crayon optique clavier Pro ZX 81 770.-F. 
- Prolongateur souple de bus 
- Filtre d'enregistrement POUR ZX S PE CT R U M 


Interface pour poignée de jeu 
- Carte génératrice 16 couleurs 
- Carte auto répétition 

- Carte 8 entrées analogiques 
- Carte entrées/sorties 

- Programmateur d'Eprom 


Clavier professionnel 

Interface disquettes et lecteur 5” 1/4 
Interface ZX 1 

Lecteur de micro disquette 

Micro disquettes pour micro drive en stock 
Extension de mémoire externe 16/48 K 


- Carte Eprom à à 
- Beep clavier - Interface type Kempston pour joystick 
- Carte mère - Interface programmable pour joystick 
- Carte proto. - Amplificateur de son réglable 


jusqu'à X 10 

Synthétiseur vocal 
Modulateur noir et blanc 
Interface mixte Centronics/RS 232 
Interface Péritel 

Crayon optique 

Carte 8 entrées analogiques 
Carte entrée/sortie 
programmateur d'Eprom 
Carte Eprom 

Raccordement pour moniteur 
monochrome 

- Prolongateur souple de bus 













ET ENFIN LE Q.L. ! 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


CATALOGUE GENERAL ET TARIFS : 10.-F. 
{remboursable à la première commande) 


NOM .—. —. —. — —. —. —.—.. Prénom. —. —. _. —. —. —. —. 


TELEVISION — LOCATION 


- POSTES SECAM AVEC SORTIE PERITEL 
- POSTES MULTISTANDARDS PAL SECAM 


COMPATIBLES MICRO - ORDINATEURS 


7 LOCATELS 













ADRESSE: 252 mr Seins etes here mt uEn ON 












Code Postal. 2: 25025 MILLE, =, en dé en mms muet 


A retourner à INTERFACE, 30, rue Condorcet, 75009 Paris. 
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QLRAM 

Extensions mémoire 

4K- Réf hd 96. 1400F 
128 K- Réf. hd 99. 1 900 F 
286 K- Réf hd 97 2780F 
512 K- Réf hd 98. 4300F 


INTERFACE DISC DRIVE QL 


Connectez n'importe quel lecteur de disquette 33, ou 5114 de pouces grêce 
cete interface. Peut s'employer avec des lecteurs simple où double face 
Simple ou double densité, ou ED pistes. Supporte de 178K à 1.44 mégaoctels. 
Réf. hd 99. 2050F 


LE DESASSEMBLAGE 
DE LA ROM DU QL 
EN FRANÇAIS 
CVsessenblge complet, té et com- 
rent qe à red enset es 
nes du qe inclair. Outil de base du 
el, cet où cons 
au langage assembleur du 68 UD (us de 
AKo de rue éudées. Tous les 
rss duQLenin vois dents 
525 insoupçonnées mises à jou, 
unique pour ser Les. pren 
eéghonneles de vol rénale 


RÉLND ANSE 


Le désasmemllage 












LOGICIELS QL 


ASSEMBLER - . su 47-650 F 
DESASSEMBLER : Ré! su 48 - 560 F 
TOOLKIT - Ré! su 44. 170F 
FORTH - Réf, su 45 . 650 F 
PASCAL - Réf. su 45 : 50 F 

QL SPRITE - Réf su 56-480 F 
LISP- Réf, su 9. B50F 

BCPL - Réf, su 4 850F 
BRIDGE 11 - Réf. sg 77 - 350 F 
ECHECS : Rôf. sg B6- 350F 

QL SCREEN : copie écran sut toutes imprimantes N. 8 8. ou couleur 
Ré. su 16-907 

















QL CONNECTION 
CONNECTION 2 sorties bus ar. - Réf hd 3 - 560 F 
INTERFACE CENTRONICS - Ré! hà 93 - 450 F 


MODULATEUR UHF N. & 8. él hd 72- 220 F 
ADAPTATEUR JOYSTICK - Réf. hu 44 - 79 F 
CABLE RS 232 « Réf hu 43: 195 F 





CREDIT 
4 À 21 MOIS 


+ de 1000 F d'achats 
sur tous les articles 
128 K RAM extensible à 640 K 
“32bis 

«2 mictodrives, 2 sorties RS 232 
#2 sortes joystick 

Extension RAM 


QL 


# Livré avec 
#4 logiciels, 1 cordon Péritel 
1 notice en rançais 

AZERTY «Réf. hü 18: 6950 F 
QMERTY- A! hd 10 5660 F 











QL MINITEL 

Transfomez votre DL en Serveur grèce 
Ace logiciel et à soninterface Cormur 
riquez arc toutes es barques de don. 
nèss ou avec un autre OL et surtout, 
devenez banque de données à vote 

n, Ulise l'écran et le modem 

Mni 

Ré. hd 20 850F 


























æ 4 








SPECTRUM ORIC 

QL ATMOS 
ZX 81 CBM 64 
DRAGON 32 DE NOUVEAUX LOGICIELS, ACCESSOIRES, POUR VOTRE ORDINATEUR AMSTRAD 











TRANS EXPRESS 

Nouvelle version. La Rolls des logiciels Spectrum utilitaires. Permet de trans- 
Hérerles programmes Basic ou Langage Machine de Cassette à Microdrie 
Microdtive à Microdrive Disquette à Disquette « Waterdtive (ROTRONICS) 
à Waterdrive-Cassele à Disquette - Cassette à Valerie. Donne les noms 
du programme, a longueur en actes, l'adresse du début (Langage Machine) 
ua ligne de lancement automatique (Basic) elfclue un vert beaucoup 
d'autres super possibilités. 

Conditionnement en cassette : su £3- 195 F 

en microdisquelle su 54 - 250F 

en cartouche ROTRONICS - 240 F 


KWIKLOAD 

Vitesse de chargement 

4 500 bauds au leu de 1 200. Comvertissez la majorité des programmes du 
commerce ou les vôtres avec le logiciel KWIKLOAD et, une lois modiiés 
ils se chargeron avec un LOAD normal une viesse 3 lis plus rapide. Con. 
veritle Basic ou Langage Machine, pas de matériel supplémentaire à bran 
cher. Use un lecteur de K7 standard 

SPECTRUM : Réf. su 17-195 F 


SPECTRUM CONNECTION 





Cave Spectrum + - 8480 
Clavier Pro a 31850 

So lumineur hd 47-395 
Simtétiseur parles hd À 435F 
Synthétiseur sons - 4 5495 
Haer. Centrones et RS 232 hd 21 
sur 


allonge Centronies - hu 35: 85F 
Conn. Inter Microdive- hu 3 95 F 
Quieshot 1h 02. MF 
Trackball « souris hg 3 375F 
Manette jeux infrarouge - 9 £ 450 F 








Inter, manette + con, 
ASF 

Che Centronles hd 21,51 189F Inter poignée prog. 9 7-400F 
ClbleRS292pourhd21-hu 52-159 Conn. souple d'ntrlace hu 8-17 F 
allonge Péritel hu 175 F Imprim. GPSOS : hé 2-1 650F 





vit 

















se 


























c = LIVRES SPECTRUM 
ROM DISASSEMBLY 
BON DE COMMANDE A ENVOYER A LOGISOFT ALT 
Vente par correspondance, en magasin, par téléphone. RUE ho 10-99F 
39, rue de Tunis - B.P. 2392 - 31086 TOULOUSE CEDEX TEL 61.21.49.55 SP HARDWARE MANUAL 
Réf. hb 11-110F 
MASTER YOUR MICRODRIVE 
REF. Réf. ho 15-110F 
PRIX 20 BEST PROGRAMS 
Réf. hb 14-99F 
VOTRE MICRO EN TOUTES LETTRES 40 BEST MIC Routines 
Lt T IRÉ F at ation ai Réf. 
DRAM neIRr [re Ein rs 
Nom lus de 
Prénom “éxhas | GRATUIT 
Rue 
ce Ville PRIX TOTAL 
Signature: Validité chèque bancaire crédit, dossier 
CCP par retour 
contre üu courrier GOT OTTES 
remboursement _L carte bleue Nous conaultor 
RE LE Cr LE 
































SPECTRUM PLUS PERITEL - Réf. ha 09 - 1960 F 

SPECTRUM PLUS PERITEL - Réf. hd 09 . 2 260 F avec 10 logiciels 
SPECTRUM PLUS PAL - Réf. hd 08 - 1 860 F 

SPECTRUM 48 K PAL et UHF N. & 8. Rël. hd 06: 1 560 F 

PACK MICRODRIUE ar 4 gl: Trament txt, gestion chier. 
création jeux, Ant Attack » Ré. hd 28 1 650 F 

ZX MICRODAIVE - Réf. hd 29 - 940 F 

INTERFACE 2X1- Rôf, ha 30: 895 F 

MICRODISQUETTES par & - Réf hu 13 160 F 


WHITE LIGHTNING 

Un febueux programme utilitaire ui 
are connaissance pariculér du Lan 
chine, vous permet d'écite 
logis professionel 
onigiraus, raides et de vous fl éd 
1er sans payer les dois de Copright 
ui sont laissés res par es concep- 
eus d8 ce logiciel qui comprend 
commandes supplémentaires, 285 gra 
phiques lisateus onciomement de 
2 programmes à Lois FORTH mége, 
binaison de FORTH, BASIC. Lan 
gage Machine dans un mème pre 
gramme. 168 graphiques prédélinis 
programme de démonstrlion 
Spectrum 48 K su 12-280F 








WHITE 
LIGHTNING 















Inconcevable de ne pas posséder ce 
logiciel utilitaire. Prenez un pro- 
gramme BASIC ajoutezy BLAST, 
appuyez sur a touche C, En quel: 
ques secondes votre programme 2st 
compllé en Langage Machine et 
tournera 40 oi pus it. | ser plus 
performant el, si vous voulez les 
faire éditer, les droits d'auteurs de 
ce logiciel sont aisés res de tout 
Copirignt 





BLAST 








Ré su St: 15 F Spactrum. 








CATALOGUE LOGICIELS ET ACCESSOIRES 


La réérnce an mieroinlormatique 





ee 
cu np 
RE 

aan 
RE Des 








2hsur 24h 














SLOMO 


« Gelez» ou ralentissez l'action de 
vos jeux préférés. Avec cette inter 
fèce poignée compatible Kemps 
tonfQuickshot I, veus pourrez ex 
minar à loisir toutes les phases de 
os logiciels d'action ou d'aventure 
en arétant le lemps, Connecteur 
anière. 








=  - 


Spectrum : él. hg 1 - 245 F 
Amstrad Ré. hg 6: 245F 





CODE SLICER 


Vous permet d'entrer dans 
n'importe quel programme Basic ou 
Gode Machine enregistré en vitesse 
normale ou Turbo Load à n'imporle 
quelle adresse (16 284 à 65 53), de 
Breaker, le ranstérer à une autre 
adresse ire le Header, copier etc. 
Pour pirates avertis 


Spectrum « Rét. su 18 : 170F 









ASTRONOMER 


Un Planëtarium paur qui eut tout 
connaitre sur nor galanie: vu du 
el de n'importe quel endroit de là 
plane, traçage des constellations 
ue de notre système soäie, phase 
delle, plus de 1 009 étoiles mon. 
1ées, combtes, astéroides compa 
ble imprimante 


Spectrum 48 K- Réf. se 1- 180F 








a SLOT 


N'avezious Jamal branché un nouvéau périphérique dans votre Spectrum 
8 de vous apercevoir Que VOUS ne pouvez ÿrajouler rien de plus ? Ave à 





CENTRONICS/RS 232 
Intartace à deux standards, compa- 
tible toutes imprimantes 
Fonctions : LPRINT. LLIST, COPY. 
Pas de logiciel supplémentaire, 
copie en couleur ou N. & 8, haute 
résolution, Microdtive compatible 


Spectrum - Réf hd 21 - S60F 
Câble RS 292 - Réf. hu 52 159F 
“Câble Centronles Réf. hu 51-159 F 


QL DIGITALISEUR 





QL MAKING MOST 

Un guide pratique pour programmer 
en SUPER BASIC destiné au débu 
tants et aux plus expérimentés, 
incluant plus de 100 programmes 
uiltaés, domestiques, graphie 
ques, scientifiques. Description des 
commandes essellles pour ve- 
Jopper vs logiciels 


12 pages RÉ ho 19: 145F 





SLOT plus de problème e connection Cest un connecteur à double sortie 
compaible Spectrum, Spectrum +, 241, 22 
Réf. hd 16: 145F 
AMSTRAD Ed 664 Couleur - Réf. hd 15 
CPS 464 Monochrome 2890F.  SS20F 

{ Lecteur de disquettes intégré 
En ou OL Disquette 3°. Réf hu 47. 79F: par 
“NOUVEAU 10-700 
CPC 864 Monochrome - Ré]. hd 14 
“A4OF 


SUPERCODE Ill 


15 aies an ange maire 
directement explotébles peuvent 
dre implantées dans ous vs pro- 
gammes Basic où Langage 
achiné, 

Grèce au « menu » de ce logiciel 
Vous pourez sélectionner Sauve. 
garder Là touine de votre choix Des 
possibités inattendues s'olrent à 
Vous. Pour machine 16 où 48K 
Nolice en Hrançaise 


SP 18148 K- AB su 14-215 F 


ZXLPRINTIN 
(erreex 





QL DIGITALISEUR 


Couplée avec une caméra vidéo PAL 
ou SECAM, cette care vous permet 
de numériser des (mages en 
258 x 256 phels en N. à 8. et 
256 x 256 en 8 couleurs, 4 fonc 
tions Basic supplémentaires en 
gérent le fonctionnement 






Réf. hd 58-3700 F 














SPECTRUM DISC DRIVE 
LE TOUT EN UN 





OPERATION 


CARETANER. 





FOURTH PROTOCOL 


Elu jeu de l'année en Grande- 
Bretagne. du re de Forsh, ce 
logiciel d'aventure vous lera vivre 
des moments intenses el oublier 
pour un moment la programmation: 
Un scénario caré, un graphisme 
Superbe et une bombe alomique à 
désmocer. 











Spectrum - Rè 





QL SUPER SPRITE 


Le logiciel que vous atlendiez pour 
voire OL. Créez fus les elets sp 
ciaux des jeux d'arcade, d'aventure 
et de Simulation pour les intégrer 
dans Vos propres programmes 
Compteur intégré ne nécessitant 
pas | cemasène du ange 
machine 68 0. $ vous voulez fire 
éditer programme réalisé avec OL 
SPRITE, les concepteurs de ce logi- 
ciel laissent les drots de copyright 
ibres et VOUS n'aurez aucune royal. 
Les à leur verse, 


Rél. su 56. 480F 


MUSIC TYPEWRITER 





exploitable même sans rien connaître à 
la musique. Vous pouvez sait composer, 
OU LnMTCEBU pré LS 
lon t les notes s sg! sur 
ue portée musicale cible sur imp. 
manteau sauregardabie sur castle 
Li ane un cache pas pour SP + 
reproduisant le cisier dur piano 
fie de 24 à 158 6 cctaves. étre 
rome 23 à 266 Mesures: 4 Cor 
Ven décrire Edton 
Spectrum 48 K- Réf se 2 - 195 F 






















ZX 1 ROM 
DISASSEMBLY 


Un livre pour tout comnaïte du 
désassembiage de la ROM de 
l'interface ZX 

Using de la ROM avec des exe 
les de programmes ufitaires, un 
assembleur, un chargeur Baske, 
index des routines, différences des 
madéles 1 et 2 


OPÉRATION 

Un checkup pour votre magnéto- 
phone. Ce logiciel contrble es varla- 
tons de vitesse, l'æimutage de la 
tte de lecture, les erreurs de pistes, 
nettoie les tétes lectenr. les déma- 
gnétise. Contrôle des résutats à 
l'écran — livré avéc un tournevis. 


Spectrum: Rèl su 7- 150F 


THE GAME 





SPECTAUM MACHINE 
LANGUAGE 


Destiné à ceux qui n'ont aucune 
idée de ce qu'est le Langage 
Machine. Le microprocesseur 230 
la numérotation en binaire et hexa: 
décimale, les registres, tout est 
expliqué en détails et chaque 
démonstration se termine par un 
tésumé, des exemples et des 
exercices 


180 pages Ré. ho 13: 110 F 





rosacsse DOID: 








ZX 1 ROM 
DISASSEMBLY 











Le dise rive pour Spectrum arivé à maturité - Forma 3 pouces - 40 pistes- Double densité - Alimentation incorporée, commune à l'ordinateur inter. 
rupteurd'alimentaion commun) Intertace poignée de jeux au standard Kempston «Bus d'extension pour os autres accessotes qui restent compati- 
bles {sauf La ZX): ROM et RAM internes - Utilise les mots clels de la ZX: FORMAT, CAT, CLOSE, etc - Interface parllle CENTRONICS inclue 
Accès direct aux données {pas dans la forme séquentielle du Micro) 
Discovery 1: 178 K formatés - Réf. hd 11-3280 F 

Nota : TRANS-EXPRESS, vendu séparément, est spécialisé notamment pour e transfer des programmes du particulier ou du commerce de K7 à dis 
quelle Discover 





















Réf hd 3 165F 
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l'actualité 








ORDINATEUR 
INDIVIDUEL 


DES IDÉES EN C: 


DATE Semen 


A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
mplète et de qualité. Le monde de la micro bouge : L'O.L teste pour vous les micros et 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaïl r le maximum de votre machine ? Les spécialistes de L'O.L vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 





